






Para que futuro você está 
educando seu filho? 



Os dois usam computador. 


a 


A 


ssim como toài educação 
emana de alguma imagem do 
futuro . Ioda educação emana 
al^rna imagem do futuro 
(Aívin Toflíer) 

O CP 200 da Protégica é simples de operar, 
custa menos do que um tv a com e faz 
importantes trabalhos de interesse de toda a 
família. Com ele você e seus filhos aprendem a 
linguagem "Basic ' e ficam aptos a programar 
qualquer tipo de computador , participando e 
criando o momento atual que já é chamado de 
Ví era da informática 

Basta ligar o CP 200 a i/m televisor e a um 
gravador para você ler um computador 
completo em sua casa. 

Assim amo o extrato de tomate, o 
liquidificador, o durex. o automóvel, a máquina 
de escrever e a calculadora, o CP 200 vai 
simplificar sua vida. 


E vai dar mais tempo para você e sua família 
criarem um futuro mefíior. 



Veja o que voce faz com o CP 200: 

* Aprendizado em linguagem Basic 

* Divertidos jogos e passatempos eletrônicos 
■ Orçamento doméstico 

* Controle de conta bancária 

* Aulas de matemática e física 

* Gráficos e cálculos científicos 
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SOLICITE DEMONSTRAÇÃO NOS PRINCIPAIS MAGAZINES. 
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Í Informática 84, de 5 a II de novembro, no Riocentro, será não apenas a 
maior mostra de equipamentos da América Latina mas também o espaço de 
uma grande festa: a festa da indústria nacional do setor, que no último dia 
3 de outubro viu recompensado seu esforço através da aprovação de projeto 
que institucionaliza a Política Nacional de Informática, na forma de 
substitutivo elaborado pela Comissão Mista do Congresso. 

A Prológica Microcomputadores, que há exatamente um ano se lançava 
numa campanha em defesa do mercado interno de informática, sente-se 
gratificada com aprovação do substitutivo da Comissão Mista, que estabelece o 
prazo de oito anos de reserva do mercado de informática às empresas brasileiras 
e cria o CONIN — Conselho Nacional de Informática e Automação, ligado à 
Presidência da República. 

Outra boa notícia a nossos leitores e usuários: a Prológica acaba de lançar o 
protocolo de comunicações RTTY, que gerencia a ligação dos micros CP 300 e 
CP 500 ao Serviço Público Cirandão, da Embratel. Informações gerais, 
intercâmbio de programas e dados específicos da área de informática são 
algumas das vantagens que a Prológica coloca à disposição de seus usuários 
através do Cirandão, ao qual dedicamos a matéria de capa desta edição de 

Geração Prológica. -----— 

i Ainda neste nono número de GP (págs. 7, 8) estamos publicando para o CP 

I 400 Color o jog o Ataque, escrito e selecionado pelo nosso departament o de _ 

I software CP. 'E nas páginas 21 e 22, nossos leitores encontrarão a descrição de- 
uni circuito, desenvolvido especialmente para Geração Prológica por Alexandre 
Faragó, que permite a utilização do CP 500 na comutação de aparelhos 
elétricos. 

A todos, uma boa leitura. 


Carlos Roberto A. Gauch 
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Contas a pagar e a receber 

Fiquei muito contente com o programa Contas a Pa¬ 
gar e a Receber» publicado na GP n? 6. No entanto, 
gostaria de fazer algumas observações a respeito do mes¬ 
mo» pois nào consegui rodá-lo no meu CP 500, versão cas¬ 
sete, sem impressora, 

Na linha 290» a primeira instrução PRINT está com o 
sinal do modificador invertido. A linha 650 parece-me in¬ 
completa» impossibilitando a “consulta por nome” se o re¬ 
ferido nome estiver cadastrado como “a receber". Se o 
nome estiver cadastrado como “a pagar"» a rotina é execu¬ 
tada normalmentc. 

Ao fazer urna consulta por “data" ou por “mês", o meu 
programa está parando na linha 1040. Não consegui enten¬ 
der o fluxo, pois uma vez que se responda “N M à pergunta 
“deseja imprimir dados?” (linha 830) o programa deveria 
pular as linhas 1020, 1030 e 1040» visto que são instruções 
para impressora. Já fiz uma conferência rigorosa nas linhas 
830 a 1080, não encontrando nenhum erro na minha digi¬ 
tação, É importante observar que: se for retirada a linha 
1040 (mesmo sem retirar as linhas 1020 c 1030), a rotina 
é executada perfeita mente» tatuo para 
a “consulta por data" como para a 
“consulta por mês". Minha última dú¬ 
vida é a seguinte: qual a utilidade da 
linha 70?' 

Á (lauto Del ui iro da Silva/firas ília-DF 

Prezado Admito , na linha 290 do 
programa Contas a Pagar e a Receber 
houve, de nossa parte , um erro de di- 
giiação: substitua o sinaí “ " por uma 
arroba Na linha 650 não há er¬ 

ro, No início da Unha 1040 ; acrescen¬ 
te: 1040 IFH = / 77/E/V. „ /I linha 
70 ê uma linha opcional f pois permite 
ao usuário implementar no lugar do 
cursor um caractere diferente do uri¬ 
nai , O cursor está no endereço 16419 
e para modificado você deverá alterar 
o código A SC II. Exemplo: POKE 
16419,197 . Deste tnodo, o ettrsor se 
transformará numa cari nha t referen- 
ao código 197. 


CP 300: literatura especializada 


É Sou engenheiro civil e 
usuário de um CP 300, 
versão cassete. Quando 
comprei o meu micro, espe¬ 
rava obter maior rendimen¬ 
to em meu trabalho. No en¬ 
tanto, estou esbarrando hm 
alguns obstáculos que estão 
me custando muito tempo. 
Em princípio, desejaria sa¬ 
ber quais os softwares dispo¬ 
níveis no mercado para a 
área de engenharia civil. 
Também desejaria adquirir 
literatura especializada sobre 
as características c possibili¬ 
dades do meu micro, lingua¬ 
gem Basic e Linguagem de 
Máquina para o TRS-80. 1 

Alrnír Frizas 
Barra Mansa - RJ 


Caro Almir, você pode 
encontrar a relação dos apli¬ 
ca t ivas para a área de enge¬ 
nharia civil no Encarte Espe¬ 
cial de Soft ware t que publi¬ 
camos na GP 8. Com rela¬ 
ção aos livros voltados ao 
TRS-80 lhe indicamos três tí¬ 
tulos ; todos da Editele Edito¬ 
ra Técnica Eletrônica: “ Ba¬ 
sic de 8 a 80”, vol. I e II; 
(r Sugestões para o Progra¬ 
mador Basic” e “Mais Pro¬ 
gramas para o seu TRS-80”. 
Estes livros podem ser en¬ 
contrados em todas as livra¬ 
rias técnicas do País ou na 
própria Editele r r. Casa do 
Ator, 1060, CEP04546, São 
Paulo, tei: 531-5468. 



Ú CP 200 versus TV a cores 

Sabe-se que a imagem do CP 200 é em preto e branco. Minha TV (e muitas outras) possui con¬ 
troles de excitação verde, vermelha e azul. Creio que se a forma de onda aplicada na amena 
pelo modular de RF excitar todos os canhões com a mesma intensidade, produzindo luz (imagem) 
branca, uicnuando-se dois canhões quaisquer a cor será aquela mais imensa mente excitada, ceno? 
Minha dúvida é: como o CP 200 age sobre os canhões de uma TV colorida?* 


Carlos Alexandre du Silva - Rio de Janeiro - RJ 

Prezado Carlos , o CP 200 não age sobre os canhões da TV colorida, ele só excita a imagem PB. 
Isto porque o CP 200 não possui decodificador de cor para a excitação dos canhões. 
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Estes livros não 
podem faltar na sua 

informateca aa 


***** P ;í 
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BASIC PARA CRIANÇAS DOS 8 AOS BO 
Volumes 1 e 2 — Mtchaef Zabínski — 
Dois divertidos livros para os jovens 
que querem conhecer a linguagem BA¬ 
SIC. Partem das noções elementares e» 
a cada nove conhecimento adquirido, o 
aluno é encorajado a praticar com exer¬ 
cícios e passatempos inteligentes. 

APLICAÇÕES PARA O SEU TRS-80 — 
QUASE TUDO EM BASIC Volumes 1 e 2 

— Ho Word Berenbon — Ao todo. 61 
aplicações diferentes para o seu com¬ 
putador. Tudo muilo bem explicado, pa¬ 
ra que você possa compreendê-las e nló 
mesmo alterá-los, Os programas estão 
escritos em BASIC Níveis I e li, para o 
TfíS-60 ou compatíveis (Prológicn, Dis- 
mac, Digitus. Sysdala etc.) 


SUGESTÕES PARA 0 PROGRAMADOR 
BASIC — Earí Ü Savage — O livro de 
consulta com todas aquelas técnicas e 
"dicas** que os programadores expe¬ 
rientes tento escondem. 

CURSO DE PROGRAMAÇÃO BASIC E 
OPERAÇÃO CP 200 — Gradualmente, 
este livro desvenda os segredos da pro¬ 
gramação BASIC, com explicações de¬ 
talhadas e dezenas da exercícios. 

CP 300 OPERAÇÃO E PROGRAMAÇÃO 

— Descrição objetiva das característi¬ 
cas do CP 300. Ideal para aquales que 
querem conhecer os recursos desse mi¬ 
cro. 


CP 500 MICROCOMPUTADOR E LIN¬ 
GUAGEM BASIC — Inclui as especifi¬ 
cações e o uso de sub-rotinas em lingua¬ 
gem de máquina. 

DOS 500 SISTEMA DE OPERAÇÃO EM 
DISCO — Objetivo e ilustrado por vá¬ 
rios exemplos, esta livro aborda todas 
as características do sistema operacio¬ 
nal em disco do CP 500, 

CP/M BÁSICO — Murtho & Waite — 
Aborda em detalhes o que é um Sistema 
Operacional, como funciona o CP/M, co¬ 
mo utilizá-lo a tirar o máximo proveito 
dos vários recursos da que ele dispõe. 


ADQUIflA-05 SEGUINDO AS INSTRUÇÕES ABAIXO: 


ASSINALAR: 

BASIC PARA CRIANÇAS - Vol. 1 . CrS 16 000 

BASIC PARA CRIANÇAS - Vol, 2 . Cri 21.000 

APLICAÇÕES P/Q SEU TRS 80 - Vol. 1. CrS 13,500 

APLICAÇÕES P/Q SEU TRS 80 Vol, 2 _ Cr$ 18.000 

SUGESTÕES P/Q PROGRAMADOR BASIC. .. CrS 12 500 

CP/M BÁSICO,.. .. . . Cri 16.000 

MANUAL DO CP 200. .... CrS 12.500 

MANUAL DO CP 300. .CrS I2.50Q 

MANUAL DO CP 500 . CrS 14.500 

M ANU At DO DOS 500 ... . CrS 12.500 

ATENÇÃO: PREÇOS VÁLIDOS POR 
TEMPO LIMITADO 


Em anexo esiou remetendo a importância de CrS ___ 

em Cheque N? __ c/ Banco _ ou 

\fo!e Postal N? ____ íenviar à Agência Central SP) 

para pagamento do/s livro/s assinalados ao lado. que me será/ào 
remetido/s pelo correio. _ 

Cheque ou Male Postal, pagável em Sâo Paulo, a favor de: 
EDITELE Editora Técnica Eletrônica Ltda, 

Caixa Postal 30.141 — OTGOO — São Paulo SP 


Nome. 

Endereço, 


Bairro, 


CEP 


Cidada_ 


Estado_ 


ISe nâo quiser deslacar esia folha pode enviar xerox com os dados completos) 



























N este jogo você terá como adversário seu micro, 
campeão invicto de 21, por isso vencê-lo não 
será nada fácil. Iniciando o |ogatina, existirão 
21 palitos disponíveis e, a cada jogada, você poderá 
alterar seu número em até três palitos, sendo isto 
válido também para o computador. Como na maioria 
dos jogos desenvolvidos pela Prológica, no 21 todas 
as instruções e comandos necessários serão dispostos 
no vídeo. 



Modelo; CP 200 16 Kb RAM 


A 


1 + 

2 ** 30GO DOS PRLITDS * 

3 '* PROLOSICR * 

A '* CP-200 4 

5 r *********44444444444-»**44 

*6 ,PQND, i CLS 
7 LÊ? §=21 

B PRINT AT 2,5? M 0 JOGO DOS 21 PRL X 
TOS n 

9 PRINT RT 6,5;"RETIRE 1,2 OU 3 PH 
LIT0S 

10 PRINT Rí 7,5:"PER DE O JQGO qQUE 
LE QUÊ" 

11 PRINT PT a»5í u RETIRRR O ULTIMO 
PRLITD'* 

12 PRINT RT 15,5 F' DIGITE ENTEP"|| 

13 XNPUT P* 

IA CLS 

15 FOF B=1 TO 4 

16 FOR C=1 TQfR 

17 1F B 1 ÍHFN PPINT "H" ; 

13 IF B> 1 TM FM PRINT "1 N s 
19 NEXTC 

ZO PRlNf^r 

21 NEXTP 

22 PRINT 

23 PPTnT THB £ 3 >? R ? "PRLITO< S >" 

36 IF 0-1 THEN GOTO 62 

25 PpRINT TRB <3) ; “QURNTOS VOCE TIF 

W" _ _ ■ 

X 





6 GERAÇÃO PROLÓGICA 














O CR 400 Color possui vários pacotes de software, entre aplicativos e 
jogos. Mensalmente estaremos veiculando programas que permitirão 
explorar todas as potencialidades deste micro. No jogo que publica¬ 
mos abaixo, você lutará com uma frota de naves inimigas até destruí-las — 
o que dependerá de sua agilidade e capacidade de controlar o joystick. 

O jogo é composto por oito setores diferentes e em cada um deles você 
deverá encontrar defesas e obstáculos específicos, que precisarão ser ultra¬ 
passados. Para continuar a jogar, você ainda terá de atravessar as passa¬ 
gens que separam um setor do outro: túneis e por¬ 
tas laser que abrem e fecham e deverão ser trans¬ 
postas com todo o cuidado, pois qualquer choque 
o destruirá. Além disso, em cada setor você enfren¬ 
tará as naves inimigas e seus poderosos mísseis. 

O controle do joystick é muito importante. Com 
o direito, você controlará sua nave podendo 
transportá-la para cima, para baixo e para a frente, 
com velocidade variada, sem poder jamais voltar 
atrás. Para atirar, aperte o botão de disparo e em¬ 
purre o joystick na direção de seu alvo e lembre-se: 
não deixe nunca os pontos brancos colidirem com sua 
nave: eles são mortais. Que a Força esteja com você! 


10 ' ##*#*#* #*#*#»##»**»#*!( w k * 

20"* ATAQUE * 

30 'k PftQLÜGICA * 

40 '* CP-MB0 * 

50 "»#*****#*x jMHtvMjHnti» 

60 CLS3POKE65M95,0 

70 (1=0 :PRlNTc?4M # "RTflQUE M i PR3NTGM53 p ‘"PRESSIONE QUALQUER TECLA" iFOftT-P ÍO U STEP1 í FRlNm*0+T*32 fSTRINO» (30 »143+16"G ) f íG“G+I sNÇXT 
00 IF IÜfíEY*«'‘ M THEmFP-0THFNP»7zU^0: I —1 : GGTO?0£LS£P=0; U=*7: 1*1 ífiOT07B 
90 CLEORSSíOIMSí I >1) . C{1 -1> »EN{1 * I) 

100 F-HQDEM* I ifíCREENl . 1 :PCLS :PHGDt3 ,1 :X = Í 0 : Y«26j Pt«"Tl5B0l V3lCt>CGftEiU25CV2ÜCGl5DV10DUSt:ViE" : SC ■ 1 : :<IS = 2 

110 GET {0 # 0>-í Itl J «CpG 

120 CIRCLEC20,20),5,7,1 - .25. .75 j DRAWBMZe - 17C7RÍÍD1T13D1R2P1NR201L2D1L2D1L3 H 1 PAI NT ( 20,20 ) * G . ? i GET í 15 - 15>-< 28*25) . S. B 
130 MN*0 iPMGDE4 p 1: PCLS ; PH00E3 , 1 r GW SC GOTP1B50,1070,1O90.1110,1B70,1140 ,1 150,n60,1B30 

140 LlNEt 100P0!-í20fl. 12) rPRESET, BsPfllNTc 102,2) .5 ,5:LIME( 98,133 -<150.13) . PSET t IFWH- 1 «PITHENi 60ELSENN"NH- 1: 1FNU>3TKENNN=3 
150 FPRT ■ l TOWIM : PfJT (00+1*13.1 )-< 10|+T*13. 11 ) + S* PSET sNEXT 
160 HH=1 :V*XiW-YtGOTQM20 

170 HH-0iFGRT»lTD3i 1FZ ( T)-0THENFUT (Pi ( T) ,P2 (T) )-(PUT) + 10,F2í T) + 10 )• EN,PSET i P3(T) »PUT ) i PM< T )*P2( T ) í NEXTELSENÉXT 

180 X-X*3:O-J0YSTK<0ízP»JOYSTK(l) í 3FP M5THENX-X+2ELSEIFfl<l5TKEMX«>í-2 

190 lFB>45THENY»Y+MELSErFE:<15THENY = Y-M 

200 DN SC GOTO4B0,520.640,600,530,750*700.010 

210 lFY<2OftX>242Oftr>100TMEWSC=SC+lIGOTO130 

220 PUT(U,U>-íU+13,UM0 >pC.PSETjPUTCX,Y>- cX+13,Y+10),S,PSET:V=X:U=Yi D=P£EK (6 5280)i1FD-1 26ÜRD"254 TuEíV250 
230 IFPFOINTíX, r-Í>>50RPP0lNT(X+14, Y+l > ' 50RPPOINT i X+1 4 . Y*9>>5GRFFDmT < X . Y* 11 > 5THENR48 
2MB GOTO1S0 

250 COLOR 61 IFB<150RB>45THEN3BB 
260 T-0IGOTO3B0 

270 IFT=0THEN2G0ELSEZ(Tí-l íDE^PI(T>*S:GOT 0290 
2BB lFR>45rHEMDE-2SSELSEDE-0 

290 UWEíX+6,Y+S>-<D£pY*S),P8£TeS 0UND233,1iLlWE-(X+6.Y+5).PRESET;IFZ(T)■1THEN368ELSE238 
300 I FMW=0ANOSC ri 0RNOB>M5ANDX ♦ 6"> tVSAHOX + 6 = <215THEN370 

310 FDRT-ITD5: iFZi T >-BPNÜX* 6 ->Pl í T )ftNDX+ó=<P] ( T > + l 0THEW320 ELSEHEXTí G0TD33O 
320 1F(B>43ANDP2(T)>YJOR(B<t5RWOP2íT)<Y)THEM350ELSENEXT:GDTO330 
330 IFB<15THENDE=t0ELSEDÊ-19l 

340 LIHEfX^6,Y+3í-(X^6,QE).PSÉTsSOUMD253,isLINE-<X+4■Y+5),PRESEI;IFZCT)“1THEN360ELSE230 
350 ZtTí-ÍiDE-P2tT>*3!GOTO340 

360 SS-S5#SC+ES:PUT£Pi (T) .P2(T) )-<Pt(Tj+] 1 .P2(T)+1 1 ) , EN, PSETt POKE63M94,0 íPLflYAt í P0KÉ65495,0 iPUT ( Pl (T),P£(T)J-(Pi(T) 

ETiDQTD42B 

370 MH-1 jl_IKE<Xt A, Y)-<Xt6,90) ,P5ET sS0UND253, 1 :L INE- t X*ó . Y ) .PRE5ET;SS^SS+50;FORT^l95TO205iPUT íT. 90)-<T+10.90) *CiPSET s 
sLINE(2l5»T)-(2«,T>,PflES£TiWEXTsIFES“2THEMHM-Nrttl rGOTO140ELSEie8 


11 ,P£tTi + U rC.PS 
NEXTiFORT*30TO70 


Tmummmar~r 
















ATAQUE continuação \ 


I 3B0 FORP=T+1TO5:IFZ£P)=0RNDY+5=>F2£P)ANDY+S= <P2(P>+10THEN390ELSENEXT:GDTO270 
390 IFA<15THENM10 

408 pl £0) “=255 í TF PlíPXPlíT) ftND Pl ( P)>X THEWT=P:NEXTPxGCTO270ELSE NEXTP : GOTG270 
410 Pl£0)=0:IF PT£ P ) > P1 £ T) AND Pl(P)<X THENT=P:NEXTP:OÜTÜ270ELSENEXTP:G0TQ278 
420 RESTORE:CQLOR7:D=150:U=SS 3 3=IN7<U/1ÔB0):U=U-1*1008:G0SU&468 
430 RESTORErD=l60:I=INT(U/100):U=U-I*100:GÜSUB460 
440 RESTORE:D=l70:I"INT(U/L8)tU^U-X * I0:GGSUe460 
450 REST0RE:D“18B:T-UsOOSUB460sIFHH“1THFN170ELSE23B 

1 460 FORT-0TOIjREfiDLt iNEXTíPUTCP^1)~(D + B,11> rC, PSET :DRfllT'BM" + 5TR*(D)+",1 M +L* sRETURW 

470 DRTAR6D10L6U10,BR4D18,R6D5L6D5R6,R6D5NL6D5L6,D5R6U5D10•NR6D5R6D5L6,NR6D5R6D5L6U5,ND2RÉD5L2D5,R6D5L6Ü5D10R6U5,D5R6U5NL6D1 8 
400 F0AT=ÍTÜ33lF2(T)»l THENNEXT :GDT051 0EL SEIF X>P1(T) THENP1 (1 > - Pl (T ) + ES ELSÉ Pl ( T ) = P 1 ( T ) - ES 
490 IF Y>P2(Tí «HO P2£T)+ES<Í58 THEN P2<T)=P2£T)+ES ELSE P2íT}= P2(T)-ES 

500 PUT£P3 £ T > p P4 eT)>-{P3 £T) + ÍB,P4(T)+10).C,PSETíPUT(P l(T >» P2£ T))-(Pl£ T) + 10,P2£ TJ + 10) F EN,PSÊÍ:P3íI)=Pl(T):P4(7)-P2(T>:MEXT 
510 C=5:GOTD530 
520 GM 

530 FORT=G TOS:IFZ(T >=1 RNDhl(T)-0THENNEXT:GOTG210ELSEIPM1 (T)>0THENói0ELSEIFZ(T )-lTHENNEXT:GÜTO210ELSEIFRMD(Z)=1THENNEXTíGOTO210ELSED 
l-BtD£=0!Hl(T)=Pl(T)+5:H2<T>-P2íT)+5 

540 IFY»P2<T)TKÉN590ELSEAA=<X-P1<T>)/íY-PZ£T>) :IFftBS(flA>=<.5THÉN570ELGEIFRBS(AR)=>2.5THEN590 

550 IF X<Pl(T) THEND1=-ES-2 ELSE01=ES+2 

560 IF Y<P2 £ T J THEND£=™ES~2:GO7Ü600ELSED2“E5+2:G8TO600 

570 IF Y<P2(T) THEN D2=-ES-2 ELSED2=ES+2 

500 GOTQ6S0 

590 IF X<Pl(T> THEN Di^-ES-2 ELSEDl=ES+2 

600 Hl lTS*Ml£T)+DliH2(T)=H2£T)+D2:Di íT)=D i:D2(T)»D2sNÉXTTjOOTD210 

610 Hl (T) -Hl <Tmjl C T >:M2(T)=H2(T)+02 £T):IFM2(T><0ÜRH1<T><0 THE WH 1£ T )-0íPRESET £H3(T), H4(T)):MEXT:G0T0218ELSEIFPPOINTçH1(T>,H2<T))>5 TH 
ENá30ELBEPRESET,(H3ÊTj ,H4íJXJ :P.5EJ (Ml íj 1 - M2{ T > , á ) :H3 f T ) =M1 f T) :H4( T > = MZ£ T > : NEXT: G0TO.2I0 
620 H5 < T ) -H1£ T > r M4(I)=H2(T >;NEXT:G0T0210 

630 IFH1{T ) ->X-2 AND Hl£l>-<X+lS AND H2 £ T ) =>Y-£ ANO H2<T>=<Y+12 THENPRE5ET t H3 ( T) , M4 (T ) ) t GOTOS40ELSEH1 { T>-=0: PRE5EKM3 tT > rh4(T J > :NEXT : 
GOTO210 

640 FORT-=lTD5;lFZaj-lTHENNeXT!GOTO210ELSE3FX<Pl (T)THEHPHTí“Pl <T>-ES ELSE Pl < T )«P1.(T ) +ES 
650 IFY>P2íT)THEHP2(T)=P2íT)+ES EL SE P2(T>=P2(T)~ES 

660 PUT(P3(T)rP4£Tn-£P3£T>+10rP4tTj+10ÍrCpPSET:PtlT(PliT) t P2(T>)-íPl(T>+Í0 pP2(T)+10)pEHtPSET:P 3tT)=Pl(T>;P4tT)=P2(T) :IFRN0< 12-ES)^1T 
HEWCIRCLEtPi(T)+]5iP2 <T>+S>pS r7rPflINT(FT (T>+15,P2<T> + 5> * 7,7 
6 70 HEXTíGOTQ210 

60 0 CQLOftBsFORT-1TOSsIFZ(T'>-1THEHNEXT:GOTO210ELSEIFY>PC(T)RNDPPOINT(P1<T)+5 f P2(T) + l. 1)=5THENP2(T>«PECT>+ES ELSEIFPPOIMT(P1íT)+10 pP 2íT 

I )-lJ=5THEWP2(T>-P2<T)-ES 

*690 PUT{P3<T)-P4(T>)-íP3íT)+10 t PM(T)+10)pC. PSET sPUT (Pl(T) tP 2(T>)-(Pl£Tj+10.P2(T>+10)rEHrPSET;P3(T)=P1£T)íP4(T)“P2(i) 

700 3FR C T>>0THEN720ELSEIF P2<T)+5»>Y-15 RND F' Z( T)+3«<Y + 25 THENR{T ) =1:NEXTíGQT0210 
710 WEXTíGÜTO210 

720 R(T)=RíTí+li3FR(T)>4THEN730ELSELiHE<Fl(T)YPZfT)+5)-(Pl<T)+7,P2(I>+5 >íPSET sNEXTiGOTOS10 

730 Hl^PSíTj+SsFORP-PKT) TO ? 5TEP-6: IFPFÜIHT fP > Ml ) >5 THEN740ELSELINE(P p Ml )-ÇP + é ,H1 ) , PRESET :LINE(Pp HU-tP-5 rMl) rPSET: NEXT :LlHE(P, Ml 
)-(P + 6,M1) p PRESET:R í T >■0 s NEXT:QQT0210 

740 IF P>^X AND P=<X+14 ANO M1^>Y ANO Hl=<Y+10 THÉN040ELSELINE<P, hl )-íP*6, Hl >rPRESET:R(T)=B:NEXTTsG0T021B 

750 COLQRCC;R“R+RT;JFR=<0ORR“>30THENRT«-RT;GOTO760ELSEFaRT“lTO3tLINE£PlíT>.P2<T)~R)Pl<T)+38,P2(T)“R*DD)x PSET, B: NEXT:OOTD210 
760 IFR-<0THENCC=6ELSECC=5 
770 0070210 

7S0 R=ft*RT!lFR-<0ORR^>30THENRT--RT:GDTO790ELSEFORT=lTO3: IFGC=STHENPUT ( FT ( T > + R, P2< i ) >-( FT {T ) +R+DD pP 2(T) + 10 ) rCrPSET iHEXT :GOTO210ELSEPU 
T(P1£T)+RrP2<T)>-(Pl(T)+RtCDrP2tT)+10)pC pPRESET:NEXT:GÜTÜCIR 
790 IFP=<0THENCG : =6ELSECC-5 
000 GOTO210 

010 COLDRGC: R^R+RT i IFR<0ORR>2ÔTHEHB20ELSEL I NE ( P1 t 1 »P2< 1 ) +R>-(Pl £1 j'+30,P2 í 1 )+R+00) , PSET , B:LINE (Pl £ 1 ) -P2( 1 )+40-R í-(Pi (1 i+30, P2( 1 J+40-R 

"DD )* PSETr B:G-3:GOTO530 

020 RT“-RT: IFR“<0 THENCC=6ELSECC=5 

030 G=3rGÜTÜ530 

840 PORE65494p0:FLRYAÍePLRYA<íPLAYAí íPORE6S495p0:PUTíVpU)"(V+13pUf10)rC.PSET 
050 NH a NH-t:IFNH*<0THEN860ELSEl30 

060 DRRW ,l HM170*90C5L90DlR90DlL90OlR90DÍL90OlR90DlL90OlR90DlL90DlR90[JlL90UlR4C6U22R15D5L8DSR6D5L6DBLSeR20U23R7D23L7eRÍ7U23R6F10ei0R6D 
23L4U14G12H12D14L2 M 
070 Gt^INKEY* 

BOa R*-INHEYT:IFÍH»“ J 'THEN0S0EL5ERJJH 

890 COLORO:DRRU ,, &H0rl60E30Fl0E25R10F30R10E10F36R20D40eR50U2GH16E30":PRINT(8,191) 

900 X°10iY=20:DRflW' l PM6.16ND190R240D160":PA3NT[0 p 0>:GOTO1M0 
710 LTNEtS f 191)-í255>191>, FRESET 
920 G0TU14S 

930 Y-d:X^Í4:ORAU lt PHl0-2NR60O4OF40R40Fl0D4OF40RI14EU40L90H10U4OFN0L40H10U50" :F 1 AINT{0# 0) :PRINT<255» 0> 

940 GOTO 140 

950 X”6:Y“l7B :CIRCLE<150,102)* 105,0,.9,,5,1rLINF(5R.100>-10r150>.PSET:GINEíH.1BB>-(355 -109>,PSET,BiDRRU''BM60,155R100E50D70' 1 sLIME < 60, 
155>-£210>175).PSETiFORT=2TO30fíTEP4:CIHCLÉí120,90)>T,7,.8:NEXTSPRINT £ 0>0)iPAINT(90,156> 

960 T-1íGOTOl100 

978 COLORGíDRRU-EflO, 100U40E50R20F18BEíD50D3OL94UllGL25Ol80L70 lt :LlNP<255,20>-í 170.110) , PSETrLlHE £255,70) - £ 170 p 160) , PSET: PRINT<0, B> í PA3 
WT £ 255,191>;X=6;IFY<100THENY^I40 
930 QOTOU20 

990 X^£tY=36:ORAW"GM0t 20R20F30D90EÍ0R130 41 ;DRRU"GM0, 600110F20R230U190":LINE £ 160,130>-< 220> 0)>PSET;PAINT(0,0 > rPAIMT(255>191 > 

1000 GDTC3140 

1010 X=e:Y=!65íDRAU li GH5,101U60R70E10R68E1 0US0R 115&D35L55D60G30LÓ0G10L60D26L90"SPRINT(0>0)=PAINT(250>100>:GOTO140 

1020 X=4:Y=H0íDRpg ,, eH0r30R76O70R4U70RS6D70R14PD48L55U70L4D70L86U70L45 ,, :LlNEU80>100>-<25Sr20> >PSeT: LlNEa&3p Í40> - < 2S5r óS ) . PSET :PAINT 
£0,0 )sFAINT<2S5p191>:GOTO140 

1030 HN^0iSC°l:GS°SS +20SíX°10sY^20sES=ES+2:0070130 

*1640 X n 6:Y a 50iDRAU o BH0r30R100E10R30F10RSO40OlBL10DÍ0L20U10L L0HT0L17Ó";:FRÍNT <B,0 )íFORT = 0TO10:CIRCLE£ 205p90)>Tp7, >óSp .5,IíHEXT íG0TQT4 
8 

1050 COLOR7iLINE(20,20)-U5,30> PpSETsLfNE-£25,30 > PpSETiL3N£"í20 p 20) - POET : PRINT [20 - 24 > , 6 p7 :GET £ 15 p 2B) - £25 - 30 ) , EN, 0 ; FORT= 1TD3 : P1 ( T > =RND 
(230 > + 10:P2 £ I> a RND £00)+10:Z(T>-8 j NEXT ;Z(5)-0;Plí 5)™166:P2 £ 5) = 160:PA 3 NY £ 20,20),5,5 

1868 GOTO 090 

1870 CIRÜLE£28p 20)r5,7:PRINT£28 p 20>,6.7:OETt15,15)-(25,25 ),EN,GíPAINT(28,20),5,S:FORT-1105:Z £ 1 >=0:M1<T)=0:NEXT 

1000 IFSC=2THENP1 £ 1) *=30:P2 C1> =66:Pl£ 2) = 1M0 s P0(2 > = 138 ? P M 3)=200:P2 £ 3> ^170: FT £ 4)=100sP2£ 4)-176:P1(5)=í04;P2(5)^140;GOTO930ELSEPlí1)^G0 
f P2 < 1) -136 i Pl ( 2> ^ 128 : P2 ( 2 > = 136: P1 £ 3 > =70: P2 £ 3 ) = 176 s P1 £ 4 > ■ 11B: P2 (4 ) ■ 176: FT ( 5 > *= 106 s P2 (5 ) = 100: GOTO990 
1098 ClROLE(28,20>,6,6:PAINT(20,20),8,6:CIRCLE£28,20>,2,7:GET£16,15)-(26,25) ,EN,0:GÜTO950 

1 1100 2£T)=0:P1{T)=RND£230)+10:P2£T>=RND<150>:IF PPDINTíPl(T>,P2(T)»5 OR PPOINT£ FT (T) + 10 pP 2£t) >>5 DR PPDINT£ P1(T)+10,P2(T)+10)>5 OR 
PPOIHKPl(T),P2(T)+10J>5 THENl100ELSET=T+1:IFT>5THEN140ELSE1100 
1110 DRAU ,r EM£8p20CóNU4NE4NR4NF4ND4C7NG4NL4NK4":GET £ 15,15j- £2S,25)-EN,G:GDTO970 
1120 FDRT=1TD5 

1130 Pl fT)-RNÜ(lS0}+l3lP2íT)»RND£ 191 ) : IFPPOINT (Pl ( T i * P2r T) 1 >50RF'PQINT (PL ( T ) +10 , P3 < T J ) >50RPP0 IHT £ Pl £ T ) , F'2 í T ) +10 ) >50RPP03HT £ P1 £ T ) + 10 , P 
2(T>+1B)>5THEN1130ELSEZ£T)-8;R<T)=G:HEXT:GOTO140 

1140 FORT-1TOS>Z£T) = 1:NEXT:P1(1>=421P2£ 1>*156:Pl£2) = 116:P2í2> = 146:P1(3> = 204:P2(3)=55 iR^0 :RT=ES-1:CC=7:DO=E5/2:G0TQlB18 
1150 FGRT-1TQ5:Z<T5*1:NEXT:PI(1) = 30:P2(1)=70sPl<2)=76:P2(2>=70:P1£ 3)=120:P2í3)^78:R=0:RT=EO:DD=ES:GOTO1020 

1168 F0RT*1TO2:Z£T)-1:HEXT:Zç3>=0:Z£4)=0:Z(5)=0:P1(4)=198:P2(4)=20:Pl(5)*lB5sP2(5>-70:Pl<1)=188:P2(1>=30:RT=ES -% :R=8:CC=6:DD=E5/2:Pl 
(3>-210:P2(3>=20iGOTO1040 
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BIORRITMO NO CP 200 

Há dias que nao tem jeito, dá tudo errado; o pneu fura ern pleno congestionamento, você 
chega atrasado àquela reunião e o dólar volta a subir. Para que você se precavenha 
contra esses dias, o Departamento de Software da Prolagfca desenvolveu o Biorritmo, um 
programa que demonstra, através de gráficos, as condições diárias do seu estado físico (F), 

emocional (E) e intelectual (l) t 



io / ****** ***-«#«**#***#**-****-*"*## 

20 '* BIORRITMO * 

30 '* PROLOGICR * 

40 CP—200 * 

50 '***#*#«*******###***##*.£###*# 
bO PRIMI nt 13,0;"BIORRITMO G,P." 
70 FOR N=0 TO 63 
30 PLOT N,22+2Q*5IN ÍN/32*PI) 

90 NEXT N 

100 PRINT RT 20,0;"TECLE PRR 

R INIClRR" 

110 INPUT RS 
120 CLS 

130 IF qiO-O" THEN GOTO 690 

140 PRINT 11 QURL 0 DIR DO NRSCIMENTO 

7 » 

150 INPUT Dl 

160 PRINT "QURL 0 MES 7 ,J 

170 INPUT Ml 

ISO PRINT"QURL □ RNO ?" 

190 INPUT RI 
200 CLS 

210 PRINT "QURL 0 RNU DESEJRDO ?" 

220 INPUT R2 

230 PRINT "QURL □ MES 7" 

240 INPUT M2 

250 PRINT "QURL O DIR ?" 

260 INPUT D2 


270 LET F=ÍR1“<M1<3)Í-ÍR2-ÍM2<3Í) 

230 LET R=íF*365)+F/4 

290 LET M^<306*{ (M1+1-ÍMK3) >- ÍM2+ 

lí- ÍM2<3))J/10 

300 LET D=D1“D2 

310 CLS 

320 LET W=RB5 ÍR+M+D) 

330 GOSUB 400 
340 GOSUB 540 
350 GOSUB 460 
360 GGSUB 540 
370 GOSUB 500 
330 GOSUB 540 
390 GOTO 590 

400 PRINT RT 6,0;"SEU BIORRITMO, " 
410 PRINT "DIR; ";DZ;" NO MES: ; M 

2 

420 PRINT 

430 PRINT "CICLO FÍSICO 
440 LET C“(W/23)-(INT «W/23í> 

450 RETURN 
460 PRINT 

470 PRINT"CICL0 EMÜCICNRL "; 

4SO LET C= ÍW/2S)-íINT (W/2S)) 

490 RETURN 
500 PRINT 

510 PRINT "CICLO INTELECTUfiL "; 

520 LET C=< W/33>-< INT <W/33J) 


530 RETURN 

540 IF 0.55 RN D CC.95 TKEN PPINT 
"EM BRIXR" 

550 IF C< .45 RND 0.05 TKEN PRINT 
"EM RLTP" 

560 IF C>= - 45 RND G< = *55 THEN PR.IN 
T" CRITICO 11 

570 IF C>“.05 OR C>=.95 THEN PRINT 
"CRITICO" 

500 RETURN 
590 PRINT 
600 P^RINT 

610 PRINT"PROX. DIR DIGITE 

620 PRINT "OUTPR DRTR DIGITE ""D. 

630 INPUT P$ 

640 CLS 

650 IF p$="P" QND D2<31 THEN LET D 
2 - 02+1 

660 IF P4= ll P" THEN GOTO 300 
670 IF P$=>"D" THEN GOTO 210 
6S0 RUN 

690 FRINT RT 10,I5|"EU DISSE " la 0 ,,M 

700 PflUSE 300 
710 CLS 
720 RUN 

730 SRVE"BIGRRIT" 

740 PUN 
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NO AR: 
CIRANDÃO 


MARTA REGINA DE SOUZA 


serviço Cirandào, da Em- 
brarel, é uma grande oportu¬ 
nidade para o desenvolvi¬ 
mento de uma cultura telein- 
formalizada dentro da socie¬ 
dade e para o próprio cresci¬ 
mento da indústria nacional de informá¬ 
tica/ Esta é a opinião de Fábio Men- 
diretor dc Marketing de Computadores 
Pessoais da Prológica, sobre o primei¬ 
ro Banco de Dados público instalado no 
País: o Cirandão* 

“Acompanhando a grande expansão 
que atravessa a telemática no campo de 
teleprocessamento* \ salienta Mendia, 
“a Prologica desenvolveu o protocolo 
de comunicação RTTY para acessar di¬ 
versos serviços de informação, atenden¬ 
do assim uma demanda crescente de um 
sistema integrado com uma gama de 
possibilidades que permita uma comu¬ 
nicação completa e satisfatória a todos 
os tipos de usuários, principalmente 
porque os equipamentos da empresa têm 
a vantagem de ser inteligentes-, 

A princípio podendo parecer um ser¬ 
viço que exija grandes investimentos, 
portanto, acessível a poucos, o Ciran¬ 
dão é na realidade um sistema que pode 
ser acionado através de um computador 
pessoal, terminal de vídeo ou ainda atra¬ 
vés de um siniplex telex — este último 
só a partir de dezembro. No caso de 
usuários com co mput adores pessoais, 
estes já deverão estar equipados com in¬ 
terfaces de comunicação RS 232C, mo- 
dens compatíveis, além do software 
emulador (protocolo de comunicação) 
desenvolvido pelos fabricantes. 

Segundo o en g? Gcorge Zelenjuk, da 
Embratei, este serviço público dc tele¬ 
mática complementa c integra outros 
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serviços dc telecomunicações já instala¬ 
dos no território nacional. “Para 1986*% 
afirma Zelenjuk, “prevê-se a possibilida¬ 
de Cirandão suportar um serviço gate- 
way t ou seja: um sistema que ligará o 
usuário diretamente a diversos bancos 
de dados nacionais ou internacionais' 1 . 

Possibilidades do Cirandão 

George Zelenjuk estima também que, 
para o biênio 86/87, este serviço estará 
integrando mais de 100 mil assinantes e 
admite não estar sendo otimista, como 
pode parecer à primeira vista: com me¬ 
nos de dois meses de funcionamento, 
o Cirandão já conquistou mais de 500 
usuários, O interesse pelo Cirandão de¬ 
ve-se à possibilidade de acesso às mais 
variadas informações, que cobrem áreas 
diversas, desde a medicina, estatística e 
economia até arte e geografia, entre 
outras, 

A configuração da rede de informa¬ 
ções do serviço Cirandão é basicamen¬ 
te a seguinte: o sistema central do Banco 
de Dados é gerenciado pela Emb ratei 
para armazenamento de informações e 
programas, os quais serão fornecidos 
aos usuários, via terminais ou compu¬ 
tadores pessoais* Interligando o sistema 
central do BD c os usuários está a rede 
de telecomunicações que, em sua confi¬ 
guração definitiva, será formada pela 
Rede Nacional de Comutação de Paco¬ 
tes (Renpac), complementada pelas re¬ 
des públicas de telefonia e Rede Nacio¬ 
nal dc Telex (RNTX). 

Por ora, para sua implementação ini¬ 
cial, o Cirandào será acessado exclusi- 
vamenie via rede telefônica em seis cida¬ 
des: São Paulo, Rio de Janeiro, Brasí¬ 
lia, Belo Horizonte, Curitiba e Porto 






Alegre. Os usuários de outras localida¬ 
des também podem acessar o Cirandão, 
porém terão que arcar com as despesas 
das chamadas telefônicas interurbanas. 

Fornecimento de Serviços 

Totalmente interativo, o Cirandão 
oferece aos usuários todas as rotinas pa¬ 
ra sua operação, passo a passo, efetivan¬ 
do uma interface homem/máquina. Ba¬ 
sicamente, o sistema fornece os seguin¬ 
tes serviços: Banco de Informações, 
Banco de Programas, Serviços de Co¬ 
municações, Armazenamento de Arqui¬ 
vos de Usuários e Serviços de Suporte 
aos Usuários, além de facilidades de co¬ 
municação para comunidades teleinfor- 
matizadas privadas. 

De acordo com Zelenjuk, com o tem¬ 
po outros serviços serão criados, a par¬ 
tir das necessidades detectadas pela pró¬ 
pria comunidade. 

Informações e Programas 

O Cirandão possui um Banco de In¬ 
formações onde estão disponíveis várias 
Bases de Dados, voltadas para os mais 
diversos setores da comunidade usuária, 
possibilitando uma navegação integra¬ 
da ao sistema, pois permite aos usuários 
a obtenção de informações complemen¬ 
tares de diversas fontes, sem o inconve¬ 
niente de mudar de banco de dados. 

Já o Banco de Programas é um ser¬ 
viço nacional de transferência on-line de 
software aos usuários, basicamente den¬ 
tro das seguintes áreas: administração 
empresarial, administração profissional, 
administração doméstica, ciência e tec¬ 
nologia, educação, lazer (jogos) etc. 

Os programas, via Cirandão, terão os 
mesmos requisitos de segurança de que 


dispõem os programas dos fabricantes e 
software-houses. No entanto, para pre¬ 
venção de eventuais erros na transmis¬ 
são, está disponível um protocolo de 
comunicações, específico para o Banco 
de Programas, que faz o controle de 
erros. 

Com todos estes dispositivos, o Ci¬ 
randão, através de seus serviços de co¬ 
municações e de suas potencialidades 
como instrumento de marketing, consis¬ 
te em uma nova mídia para a área de 
software. 

Serviços de Comunicações 

Os serviços de comunicações do Ci¬ 
randão têm as seguintes opções: Servi¬ 
ço de Mensagem, Quadros de Aviso, 
Mercado Eletrônico/ Teleconferência, 
sendo que as duas últimas ainda estão 
em fase de estudo, não-disponíveis aos 
usuários. 

O Serviço de Mensagens consiste na 
comunicação pessoal entre os usuários, 
num intercâmbio de mensagens, que são 
armazenadas nas suas Caixas Postais. 
Estas caixas são distribuídas no ato da 
inscrição no Cirandão: cada usuário re¬ 
cebe uma, com o respectivo endereço, 
tendo cada caixa postal a capacidade 
máxima de 198 mensagens e tamanho 
individual de 6Kb. O sigilo dos recados 
é absoluto, pois uma vez enviados a um 
usuário, só este poderá acessá-los, sen¬ 
do que nem mesmo o remetente poderá 
modificá-los ou revê-los. O Serviço de 
Mensagens pode oferecer ainda as se¬ 
guintes facilidades: Grupo Fechado dc 
Usuários, Caixas Postais Subsidiárias, 
Secretária Eletrônica, Arquivo de Tex¬ 
tos Padrão e Mensagens em Elaboração, 
Multiendereçamento e Endereçamento 
em Grupo. 
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Já disponível aos usuários, o Servi¬ 
ço Quadro de Avisos permite a comu¬ 
nicação simultânea de uma pessoa com 
várias outras ou vice-versa. E para au¬ 
xiliar e prestar assistência aos usuários, 
facilitando seu relacionamento com o 
sistema, foi criado o Sistema de Su¬ 
porte. 

O Cirandão pretende também ofere¬ 
cer facilidades para as comunidades fe¬ 
chadas, sem ferir a filosofia de atendi¬ 
mento comunitário, iridependentemen- 
te de segmentações e localizações. Estas 
comunidades fechadas (empresariais, de 
classe, clubes ou associações) poderão, 
desta forma, transmitir e receber infor¬ 
mações de seu interesse exclusivo, sem 
que fiquem impossibilitadas de acesso 
aos demais serviços públicos do Ciran¬ 
dão. 

Acessando o Cirandão 

Para acessar e participar do Ciran¬ 
dão, basta um telefone, um terminal 
TTY ou computador pessoal, um mo¬ 
dem com velocidade de 300 bps ou 
1220/75 bps, interface RS 232C e um 
emulador específico para cada equipa¬ 
mento, que transforma o computador 
num terminal. De resto, é só solicitar o 
serviço à Embratel. 

A tarifação elaborada pela Embratel 
prevê uma fase de pré-comercialização, 
com validade até 30 de outubro deste 
ano. Assim, o usuário poderá fazer uma 
assinatura mensal que inclui uma fran¬ 
quia de 120 minutos e 250 mil bytes — 
a cada mil bytes pode-se escrever um 
texto de aproximadamente 200 linhas 
com 50 toques. Se a assinatura for resi¬ 
dencial seu preço é de Cr$ 2 mil 544 e 
comercial Cr$ 12 mil 720. 

Excedida a franquia, cada bloco de 
1000 bytes custa Cr$ 6 e Cr$ 24 por 
minuto. Caixas Postais e Quadros de 
Aviso não implicarão em custos extras 
quando dentro da franquia, até o tercei¬ 
ro dia. Se o assinante não ler ou retirar 
sua mensagem neste prazo, pagará Crí 
6 por 1000 bytes armazenamento/dia. 

A cada Caixa Postal corresponde 
uma senha, sem a qual o acesso é inviá¬ 
vel. Entretanto, o usuário pode ter, se 
quiser, até nove senhas subsidiárias a 
Cr$ 634, residencial e CrS 3 mil 178, co¬ 
mercial, para cada senha principal. 

Para os provedores de serviços e/ou 
programas, o processo de tarifação exi¬ 
ge um armazenamento mínimo mensal 
de um Megabyte, a Cr$ 6 por mil bytes 
armazenados/dia. 

A Embratel está confiante de que, 
impulsionado pela intensa utilização de 
serviços ligados à telemática, que se ve¬ 
rifica em todos os segmentos da comu¬ 
nidade, o Cirandão crescerá não só em 
demanda de participantes como também 
de serviços disponíveis. A própria con¬ 
figuração definitiva prevista, que passa 
pelo Renpac, deixa evidente a dimensão 
que este serviço poderá atingir. 




CURSO DE B/ 


Nas lições anteriores aprendemos que 
para escrevermos linhas de programas 
podemos usar, por exemplo, o seguinte 
comando: 

READY 

> 10 CLS (ENTER) 
ou seja, digitamos o número da linha e 
depois a instrução seguida de ENTER, 
para qualquer linha. Com o comando 
AUTO, o Basic gera o número de linhas 
sem que precisemos digitá-lo. A forma 
genérica deste comando pode ser defi¬ 
nida por: 

AUTO n,k (ENTER) 

onde n é o número de “linha-início** do 

texto e k o incremento deu. Exemplo: 


10 CLS 

EFEITO 

/►AUTO 10,10 - 20 PRINT "AUTO' 

30 END 

v 1 CLS 

> AUTO 1.5 EFEITO 

- 6 PRINT "AUTO" 

11 END 


FOR variável = n TO k 
procedimentos 
NEXT variável 


onde n e k são expressões numéricas ou 
variáveis numéricas. 

Considere a seguinte proporção, da¬ 
do o programa: 

5 A= 1 

10 PRINT “PASSAGEM** A 
20 A = A+1 

30 IF A < 6 THEN GOTO 10 
40 PRINT “ACABOU** 

Se usarmos a instrução FOR...NEXT, 
teremos: 


, 5 FOR A = 1 TO -. 

► 10 PRINT "PASSAGEM" A 

i.20 NEXT A ■ - 

30 PRINT "ACABOU" 


A partir do ENTER, em cada linha, 
passa-se automaticamente à linha se¬ 
guinte com o incremento dado. 

FOR...NEXT 

O formato geral do comando FOR... 
NEXT pode ser definido da seguinte 
forma: 


Isto significa que as instruções entre 
FOR e NEXT serão executadas 5 vezes, 
ou seja: até que A = 5 a partir de A = 1. 
Toda vez que passar pelo NEXT A, o 
programa retorna para a linha 5 e se a 
condição A = 5 não acontecer, o progra¬ 
ma soma 1 em A e continua o LOOP. 
Resumindo: a finalidade desta instrução 
é permitir que uma série de instruções 


esta quinta lição de 
nosso Curso de 
Basic, Marilena 
Occhini Siviero 
aborda os comandos: 
AUTO e FOR... 
NEXT, através de 
exercícios simples 
e práticos. 
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,SIC LIÇAO V 


seja executada dentro de um LOOP, um 
certo número de vezes* 

Sendo variável, o comando é usado 
como contador, onde n é o valor inicial 
da variável cko último valor do conta¬ 
dor. Analise este outro exemplo de apli¬ 
cação: 

10 CLS 

20 PRINT 41 ADIVINHE UM 
NÚMERO ENTRE 1/10" 

30 A-RND(IO) 

40 FOR 1-3 TO STEP -1 
50 PRINT “VOCÊ AGORA TEM 
[; CHANCE(S )" 

60 INPUT “QUAL É O NÚMERO";N 
70 IF N - A THEN GOTO 100 
H0 PRINT “VOCÊ ERROU" 

90 NEXT I 

100 PRINT “GANHOU!!!” 

110 INPUT “QUER MAIS?(S/N)”;R$ 
Perceba que o contador vai do 3 ao 
1. Isso porque o incremento e negativo. 


STEP especifica o incremento que, se 
omitido, assume +1. Neste programa 
usamos FOR...NEXT para fazer um 
LOOP três vezes, já que na linha 50 o 
programa indica o número de chances 
que o jogador ainda possui, aproveitan¬ 
do o contador I, no caso regressivo. 

O exemplo abaixo indica a utilização 
do STEP positivo: 

FOR A = 32 TO 256 STEP 2 
PRINT CHR$(A); 

NEXT A 

Neste programa, em cada passagem 
pelo NEXT, a condição (32 TO 256) 
é checada, isto é: se A = 256, fim do 
LOOP. Caso contrário, soma 2 em Á e 
o LOOP continua. Sendo assim, com es¬ 
te incremento, o LOOP é executado 112 
vezes. E não esqueça de um detalhe: na 
primeira execução do LOOP, o conta¬ 
dor está com o conteúdo igual à expres¬ 
são (ou variável) numérica à direita do 
sinal de igual. Exemplo; 
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1) Fazer um programa que liste todos 
os números pares entre 2 c 100. 

2) Fazer um programa onde o 
operador adivinhe um número. A 
quantidade de tentativas deve ser 
fixada' pelo próprio operador. 
(Sugestão: usando FOR... NEXT 
utilize a variável que contém o 
número de tentativas para iimite do 
FOR...NEXT.) 

3) Fazer um programa onde seja 
listada na tela (10 vezes) a 
mensagem: “CP 400 COLOR: O 
NOVO MICRO DA PROLÓGICA”. 
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BATALHA NAVAL 


PROLOGICA 


****************************** 


60 CLS: PRINTQ464 ,£HR* (23 L; "BRTRLHR 
NAVRL"; — 

70 GOSUB 1410 

30 CLS:GOSUB 1670 :GOSUB 1460 
90 ^R3ÍJ22ÍVCLEFIRÍ200) IDEFINT R-S 
100 DlFrTfe(17,17) ,KP(17 ,17> ,KC<17, 
17),LN(11),LS<11)iSNt < 11) ,LC(11) 
110 DIM LE( 61 1),LX(6,1),SC < 6,2), BL 
S<5> 

120 TC=0-12 

130 CLS:PRINT@64*4+10,“CRPITRO, SE 
U NOMEi POR FAVOR";:INPUT P* 

140 PRINT: INPUT" QUAL SERA' 0 G 
RRU DE DIFICULDRDE DR BRTRLHR (1 R 
3) . ‘ 


FRCIL 

MEDIO 

DIFICIO “? D 


150 IF DF<1 OR DF>3 THEN 140 
160 IF DF=1 THEN TX=125:SV=3 


170 IF DF=2 THEN TX=50:SV=2 
ISO IF DF=3 THEN TX=25:SV=1 
190 CLSsPRINT:PRINT"CERTO. VOCE PO 
DERR' DISPRRRR SALVRS DE"!SV;"TIRO 
S"5PRINT"E VOCE TERA' UM MÁXIMO DE 
“;TX*TC;“SEGUNDOS PRRR DISPARA-LOS 


200 PRINT:PRINT "NOSSRS FROTRS TERR 
O CRDR UMR : “: PRINT 
210 NS=0:F0R 1=1 TO 6:RERD N,K,A*: 
IF DF< 2 THEN N=1 

220 PRINT N; R$;TRB<25);"COMPRIMENT 
0 DE “5K;“QURDRRD0S" 

230 FOR J=1 TO N 

240 NT=NT+K:NS=NS+1:LS(NS)=K:LC <NS 
>=K:SN$(NS)=R$:IF N>1 THEN SNt(NS) 
=5N*<NS>+" NO.“+STR*<J) 

250 NEXT J,I 

260 DRTR 1,6,P0RTA-AVI0ES,1,5,C0UR 
RCRDO,2,4,CRUZRDOR,2,3, DESTRÓIER ,2 
,2,SUBMRRINO,3,1,BRRCO PRTRULHR 
270 FOR 1=1 TO ò:RERD SC(I,0),SC(I 
,1),SC(1,2):NEXT I 
280 DRTR 2,1,3,1,1,1,3,2,1,2,2,2,1 
,o,2,3,3,3 

290 FOR 1=0 TO 4:RERD BL$<I):*NEXT 
I 

300 DRTR", SUR RRTR2RNR DE PORÃO", 
“, MRLDITO SEJR“," MINHR NOSS 

R" , " " 

310 PRINT :GOSUB 1460 









320 GOSUB 910 

330 GOSUB 1400 :INPUT"VOCE QUER SU 
R FROTR DISPOSTA AO ACASO";A* 

340 1=1: J=1 :NG=3:IF LEFTM A* , 1 > ="N 
" GOSUB 1100 ELSE GOSUB 1590 :FOR 
1=1 TO 15:FOR J=1 TO 15:KP(I,J)=KB 
<I,J>:NEXT J,I 

350 GOSUB 1400 :PRINT"VOU DISPOR M 
INHR FROTR AGORA";:NG=65:GOSUB 159 

0 

360 FOR 1=1 TO 15:FOR J=i TO 13:KC 
(I,J)=KB(I,J>:NEXT J,I 
370 IC=RNDC3)“1 

3S0 GOSUB 1400 :PRINT"PRONTO... ME 
US NAVIOS ESTRO EM POSICRO í":17=7 
: J7=7 

390 ON ERROR GOTO 1780 

400 PRINT" VAMOS SORTEAR- U ;:IF R 

ND<0)>-5 GOSUB 1410 :GOSUB 1400 :p 
RINT" EU DISPARO PRIMEIRO!»;:GOTO 5 
30 

410 1=17:J=J7:NG=65:GOSUB 1410 :G0 
SUB 1400 : PRINT "SUA VEZ, CRPITPO M 
;Pt: 

420 FOR NV=1 TO SV:GOSUB 1410 :GOS 
UB 1400 : PRINT "DISPARE 0 TIRO NO." 
NV;* 1 " ; : T=0 

430 GOSUB 950 :IJ=KC(I,J):GOSUB 1 

400 :IF T=TX PRINT"LEVOU MUITO TEM 
PO PRA' DISPARAR, CQPITRO. PERDEU 
ESTE TIRO !“*:GO T G 510 
440 IF IJ=99 PRINT" JA' ALVEJOU EST 
E PONTO RNTES, CRPITRO ;:GOTO 43 
0 

450 IF IJ=0 THEN PRINT" TCHURAAM..- 
RCERTOU NR AGUA, CRPITRO !“;:LP=-1 
íGOTO 500 

460 PRINT" ACERTOU 0 TIRO EM MEU 
SNtdJ) ; :HP=HP+1 : GOSUB 380 :CH=CH 
+ 1:LX(Ch,0 > = I : LX(CH,1) = J 
470 LP=-1:IF CH>3 THEN PRINT BLt(R 
ND(5)—1)5" !" 

480 LC(IJ)=LC(IJ)—1sIF LC(IJ)=0 PR 
INT"• . . E QUE ACAER DE RFUNDRR !“?: 
FOR 13=1 TO CH:IX=LX<13,0):JX=LX(I 
3,1):GOSUB 870 :NEXT I3:CH=0:LP=0 
490 IF HP= >NT GOSUB 1410 :GOSUB 14 
00 SPRINT"GANHOU ESTA BRTALHA NPVR 
L, CRPITRO “spt;" !!!";:GOSUB 1410 
:GOSUB 1410 :GQTO 840 
500 17=1:J7=J:KC(I,J)=99 
510 NEXT NV 

520 GOSUB 1410 :GOSUB 1400 :PRINt" 

E' A MINHR VEZ, AGORR."; 

530 GOSUB 1410 :NG=3:F0R NV=1 TO S 
V:GOSUB 1400 :GOSUB 1410 :IF NH>1 
THEN 780 

540 IF NH=1 THEN 640 


^ V " 






550 I=RND(15):J=RND(15) 

560 IX=I:JX=J 

570 IF 1)3 THEN 1=1-3:GOTO 570 

530 IF J>3 THEN J=J-3:GÜT0 580 

590 FOR K=1 TO 6 STEP 2!IF SC(K,IC 

> RND SC(R+1,IC) THEN 610 

600 NEXT K:GOTO 550 

610 I=IX:J=JX:GOSUB 1290 :IF JP=1 

THEN 550 

620 01=1:QJ=J:LI=I:LJ=J:IF KP<I,J) 
=0 THEN 320 

630 KH=KP(I,J):LK=LS< KH):GOSUB 148 
0 :GOTO 330 

640 PRINT "DEIXE-ME PENSRR.••°; 

*650 NX=RND(4):GOSUB :GOSUB 12 

90 :IF JP=1 THEN 650 
660 DI=RBS(I-LI):DJ=RBS(J-LJ):K=0 
670 K=K+1:IX=OI+K*DI:JX=0J+K*DJ:IF 
IX>15 OR JX>15 THEN 690 
630 KK=KP(IX,JX):GOSUB 1350 :IF JP 
=0 THEN 670 

690 SI=IX-DI:SJ=JX-DJ:K=0 
700 K=K+1:IX=OI-K*DI:JX=0J-K*DJ:IF 
IX<1 OR JX<1 THEN 720 
710 KK=KP(IX,JX):GOSUB 1350 :IF JP 
=0 THEN 700 

720 EI=IX+DI:EJ=JX+DJ:K=0 
730 IF SQR((SI— El )*<SI-EI)+(SJ—EJ> 
*(SJ-EJ))< LK THEN 650 
740 IF KP(I,J)=0 THEN 320 
750 IF LE<1,0)=1 THEN SI=I:EI=I:IF 
LE (1,1 > < J THEN SJ=LE;(1,1) :EJ=J EL 
SE SJ=J:EJ=LE(1,1) 

760 IF LE(1,1)=J THEN SJ=J:EJ=J:IF 
LE <110)<I THEN SI=LE (1,0) :EI=I EL 
SE SI=I:EI=LE(1,0) 

770 GOSUB 1480 :LI=I:LJ=J:GOTO 830 


730 IF RND(O)> * 5 THEN 800 
790 I=SI-DI:J=SJ-DJ:GOSUB 1290 :IF 
JP=1 THEN SOO ELSE IF KP(I,J)=0 
THEN 800 ELSE, SI=I:SJ=J:GOTO 810 


800 I=EI+DI:J=EJ+DJ:GOSUB 1290 :IF 
JP=1 THEN 790 ELSE IF KP <I,J)=0 
THEN 790 ELSE EÍ=I:EJ=J:GOTO 310 


810 LI=ISLJ=J:GOSUB 1480 :GOTO 330 


820 PRINT "TCHURRA-..!!!":KP(I,J)=9 
9:GOSUB 360 

830 GOSUB 1410 :NEXT NV:GOTO 410 
840 GOSUB 1400 :INPUT"QUER ME ENFR 
ENTRR EM OUTRR BRTRLHR";At 
850 IF LEFT$CRt,1) = "S“ THEN CLS:RE 
STOREJRUN 80 ELSE CLS:PRTNT ft40n. . 
"FÜGIU MRS EM BREVE NOS ENCONTRRRE 
MOS " ?@it£4, "NUMR NOVR BRTRLHR...RH 
! RH! RH! RHHH!“:F0RI=1 TO 10005NE 
XTl:CLS:STOP 

360 SET(4*(I—1)+NG,2*(J—1)+2):RETU 
RN t 

870 RESET < 4*(IX—1)+NG,2*(JX—1): 
RETURN * 


Lá 


T*S 
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Este jogo é, no mínimo, emocionante. Nele você disputará com seu micro uma batalha naval 
no escuro, ou seja: você não verá a frota inimiga e terá um tempo limitado para 
cada disparo. Todas as informações necessárias para jogar serão fornecidas pelo computador. 


880 FOR XX=-1 TO 2: SET (4*(1-1)+NG+ 
IX ,2# í J-D + SJ íSETC4*(I-l>+NG+IX ,2* 
ÍJ— 1>+^:NEXT IXíRETURM 
890 FOP IX=“1 TO 2:RESET<4#(I-1>+N 
G+IX-2*( J~i>+?J * REBET (4* íI—1' +NG+1 
X*2*(J-1>+^ =NEXT IX:RETURN 
900 LP=PGINT<4*ÍI-1>+NG,2*ÍJ-l>+2) 
:RETURN 

910 CLS:FOR 1=1 TO 1275 SET <I> CU : SE 

T(I,3£?:NEXT I f 

920 FOP J=0 TO 32SSETC1, JJ :SET(6<i, 

Jy : SET l127 i IJ íNEXT J 1 

930 H " ;F$;" '• ;sPRINT«g2 

2i" COMPUTADOR " ; - RETURN 

940 LP-POINT {4*1+3 i 2*J+2) sRETÜRN 

950 GOSUB 360 :A*-INKEY$*T=T+1lPR 

INT ft735 .INT(T*TC) l sIP T“TX RETURN 

960 IF THEN XX-I t JX=J : GDSLJB 

S70 :GOTO 950 

970 NC=RSCÍfl*>tII=I:JJ=J 

930 IF NC=90 JJ=J“1:GOTO 1040 

990 IF MC=SC JJ=J+i:GQTQ 1040 

1000 IF NC=46 I1=1+1iGOTO 1050 

1010 IF NC=44 11=1-1:GOTO 1040 

1020 IF NC=13 KS=1:RETURN 

1030 GOTO 1080 

1040 IF JJU OR JJH5 THEN 1030 
1050 IF II(1 OR II>15 THEN 1080 
1060 IF LP=Q THEN IX=I:JX=J:GOSUB 
370 FLSE 60SUB S60 


LM!";: FOR JX=1 TO NX : I=LE(JX , 0 ) s J 
=LE < JX)1):GOSUB S90 :NEXT JX:LP=0 

íGOTO 1130 

1210 IF NXÍLSÍNN) THEN 1140 

1220 FOR JX = 1 TO NXiKPtLEtJX f O>,LE 

(JX , 1)) -NN:NEXT JX 

1230 GOSUB 1400 :PF INT"0 -K*, ESTO 1 
COLOCADO." 

1240 NEXT NN:GQSUB 1400 :PRINT"TOD 
OS OS NAVIOS PRONTOS PARA 0 CQMBAT 
E M *■ ; : RETURN 

1250 JP=ó;FDR I3=-L TO 1:FOR J3=-i 
TQ 1: IF KPíI+13, J+J3Í OO JP=i:RET 
UPN 

1260 NEXT J3,13:RETURN 
1270 JP-0 :FOR I3=-l TO i:FQR J3=-í 
TO 1: IF KBt I + I3, J+J3M >0 JP=1:RET 
URN 

1230 NEXT J3,13;RETURN 
1290 JP=1:KK=KPÍ I,J> 

1300 IF KK >90 RETURN 

1310 FQR I3=-l TQ 1:F0R J3=-l TO 1 

:IX=X+I3:JX=J+J3 

1320 IF IX<0 DP IX>16 OR JX<0 OR J 
X>16 THEN 1340 

1330 KK=KP (IX,JX > :*IF KKC 0 RETURN 
1340 NEXT J3,13 ;JP«0> RETURN 
1350 JP=i:IF KK=99 RETURN 
1360 FOR I3=-l TQ UFQR J3=-l TD 1 
:IY=IX+I3:JY=JX+J3 


1430 I=Ll;J=LJ-l:RETURN 

1440 I“L 1—1 i J=*L J * RETURN 

1450 I=LI: J=U + U RETURN 

1460 PRINT^64 + 14+10 i "APERTE QURLQU 

ER TECLA PARA CONTINUAR" 

1470 IF INKEYt**"'* THEN 1470 ELSE R 
ET URN 

1 £*S0 NH=NH+1; HC=HC+1 s LS í KH ) =LS (KH) 
~1:KPlIiJ)=92:LEÍNHiOS=I'LE(NH,1)= 
J 

1490 IX=i:JX=J:GOSUB 370 :FRINT“U 
m IHPACTO NO SEU " ; SNS t KH) " ! 11 
1500 IF LS(KH)>0 RETURN 
1510 PRINT M SEU ";SNf(KH);" AFUNDOU 
,w ssGOSUB 1410 

1520 FQR 11=1 TQ NH:I=LE { I1 t 0):J=L 
E(II11)3 KP <11J > ——X * GQSUB 890 :GOS 
UB S60 ;NEXT I1:NH=0 

1530 IF HCíNT RETURN 
1540 GQSUB 1400 SPRINT"EU GANHEI A 
BATRLHA 1 f ! ■ hi ? : GOSUB 1410 
1550 INPUT' 1 VOCE QUER VER OS M 

EUS NAVIOS 1l ;nt;IF LEPTí í Alt i 1 ) = J, N" 
THEN S40 

1560 GOSUB 1400 :PPINT r, 0-K. AQUI E 
STQQ ELES Í":NG=65 

1570 FOR J=1 TQ 15:FOR 1=1 TO 15*1 
F KCtI,J)>0 AND KC 11,J > 190 GOSUB 3 
80 

1580 NEXT I,J:GOSUB 1460 :GOTO S40 



1070 I=Ii:J=JJ:GQSUB 900 =GOSUB B 

60 

1030 IF PEEKÍ14463)>0 THEN 9S0 
l090 GOTO 950 

1100 GOSUB 1400 :PRINT"VAHQS COLOC 
AP SEUS NAVIOS, CAPITAQ ";P*?*G03Ü 
B 1410 

1110 GQSUB 1400 :PRINT"DIRIJA 0 PO 
NTO LUMINOSO COM AS TECLAS COM FLE 
CHAS t APERTE <ENTER) PR RA DESENHA 
R"; 

1120 FOP NhMl TO NS 

1 130 NX = 0: GOSUB 1410 :GPSUB 1400 

PPIN^'COLOQUE SEU ";SN^(NN>;" tCO 

MPRI MENTO DE M ? LS í NN > ; " QUADRADOS i 11 ; 

1140 T=0:GOSUB 950 : GOSUB SSO :L 

P=_1;NX=NX*1 :LECNX,0>=l:LE(NX t 1 

1150 IF NX=1 THEN 1190 

1160 LI=LE<NX-1tO):lJ=LEíNX-1>1> U 

F I=LI AND J=LJ GOTO 1200 

1170 IF (I-Ll>*í I-LD + Í J-LJ)#Í J-LJ 

)>i GOTO 1200 

1130 IF IÍ>LEÍ1 t 0) AND JOLEÜJ) 
GOTO 1200 

1190 GOSUB 1250 :IF JP=0 THEN 1210 
1200 GOSUB 1400 =PRINT"NRVIO ILEGA 


Modelos: CP 300/CP 500 48 kb RAM 


1370 IF IY<0 OR IV >ló OR JY(0 OR J 

Y >16 THEN 1390 

1380 IF KPíIY*JY> C0 RETURN 

1390 NEXT J3t13 SJP=0!RETURN 

1400 RR INTQS96 ?CHR % (31)?:RETURN 

1410 FOR TD=1 TQ 500:NEXT ID:RETUR 

1420 T=LI+1iJ=LJ:RETURN 


1590 GOSUB 1410 :GOSUB 1400 ;PRINT 
"DEIXE-ME PENSRR* * * H ; 

1600 FOR 1 = 1 TO 15:FOR J=1 TQ 15:K 
BÍI,J>*0:NÊXJ T - T 
1610 FOR NN=1 TO NS 
1620 IF RND(0)>■5 THEN I1=RND(15-L 
StNNi-1):J1=RNDt15>:J2=J1:12=11+LS 
( NN)“1!GOTO 1640 

1630 J1=PND t 15-LS (NN) — 1 ) : I1=RNDU5 
>:12=11: J2=Jl+LStNN)-1 
1640 FQR 1=11 TO 12;FOR J=Jl TO J2 
:GQSUB 1270 :IF JP=1 THEN 1630 
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1650 NEXT J,I:FOR I^I1 TQ 123FOR J 
= Tl TO J2íKB(1 1 J)=NNíIF NG“3 GOSUB 
880 

1660 NEXTJ , ÜNEXT NN:RETURN 
1670 PRINT* 1 t - GS NRV1DS RODEM SER 
COLOCADOS NR VERTICAL OU NR HORI20 
NTAL i " 

1680 PR INI" MAS NAO EM DIAGONAL . 
E-E5 PODEM ENCOSTAR NRS BORDAS, 
1**0 PRINT 11 MAS NAQ EM OUTROS NR 
VI GB 7 NEM MESMO NOS CANTOS *“ 

1700 PRINT" 2. EU E VOCE NOS ALTERN 
AREMOS EM DISPARAR TIROS- UM NUMER 
0° 

1710 PRINT" MÁXIMO DE TIROS POR 
SPLVP, E UM LIMITE DE TEMPO PARA" 
1720 PRINT" CADA TIRO SAO FIXADO 
5 DE PCQRDO COM 0 GRAU DE DIFICULD 
ADE - " 

1730 PRINT" 3 - VQCE POPE LOCALIZAR 
OS TIROS PELAS TECLAS 'fl * E *7.* 
íPARA BAIXO E PARA CIMA RESFÊCTI 
VAMENTE),E PELAS TECLAS U' E 
(PARA ESQUERDA E A DIREIRR RES^ECT 
IVAMENTE)- AO ATINGIR A PD3ICA0 D 
ESEJADA APERTE 'ENTER' PARA DISPA 
FPR . 

1740 PRINT -4- 0 JOGADOR QUE AFUNDA 
R MAIS RAPIDAMENTE A FROTA DO QPQ- 
1750 PRINT 11, NENTE SE RA' □ GANHA D 
GR.*' 

1760 PRINT "BOA SORTE- SAIBA QUE EU 
SOU OTIMO JOGADOR 1 "; 

177A RETURN 

17RA CLS: PRINT "SINTO MUITO-A S 
I Ti. J AC AO FICOU MUITO DIFÍCIL PA* A M 
IM * " 

1790 PRINT "VAMOS TFNTqo OUTRA, 0_ 
K - ?" - GOSUB 1400 sRUN 80 
1300 END 


A teleinformática conquista novos espaços com 
possibilidade de acesso a vários bancos de 
dados privados ou públicos, como o Cirandao 
e o Videotexto. A Prológica Microcomputadores, 
pioneira nesses serviços, desenvolveu um 
nrotocolo de comunicoçãor 


destinado a gerenciar a liga¬ 
ção de microcomputadores 
ao Serviço Público Círan- 
dão» da Embratel (veja ma¬ 
téria na pág. ÍQ), 

O protocolo de comuni¬ 
cações desenvolvido pela 
Prológica apresenta algumas 
facilidades especiais que per¬ 
mitem a I rans mi ssíIo/ recep¬ 
ção de programas, o envio 
de cartas pre-editadas ou 
ainda a coiiipressào/deseom- 
pressão de brancos. Detalha¬ 
mos abaixo cada uma dessas 
características especiais. 

Protocolo de Transmis¬ 
são/Recepção de Arquivos 
— Esta facilidade deverá ser 
chamada quando da trans¬ 
iu is são/recepçà o de progra¬ 
mas, solicitada através do 
Serviço de Banco de Progra¬ 
mas. 

Transparência — Neces¬ 
sária para a transmissão/re- | 


cepção de programas, quan¬ 
do do envio/recepção de ca¬ 
racteres pertencentes à faixa 
de 00H a l FH e 80H e FTH. 

C o m pressão / D esc o m - 
pressa o de Brancos — Esta 
facilidade permite uma me¬ 
nor sobrecarga de tarifação 
por volume, causada pelo 
tráfego de caracteres bran¬ 
cos. Caso esteja presente no 
emulador, o sistema central 
poderá fazer a transmissão/ 
recepção de telas com com¬ 
pressão de brancos* 

Transmissão de Carias 
Pré-Editadas — Caso o usuá¬ 
rio uijJize editor “off-lme” 
no microcomputador, as car¬ 
tas editadas deverão ter até 
6Kb de tamanho com código 
OAH(IOD) para fim de linha 
eODH(13d) para fim de car¬ 
ta. O emulador deverá enviar 
a carta, armazenada em dis¬ 
co ou em determinada posi¬ 


ção de memória, tão logo 
receba do sistema central o 
código “7D64H ,# O código 
“7D65H T< deverá provocar 
interrupção da transmissão 
da carta por parte do proto¬ 
colo de comunicação. Será 
enviado pelo sistema central 
quando a carta exceder o li¬ 
mite de 6Kb. O recebimento 
deste código “7D65H tT pelo 
protocolo ou o envio do ca¬ 
ractere 1 ‘UDH ’ * para o siste¬ 
ma central significa que o 
procedimento normal deve 
ser restabelecido. 

Impressão Paralela — É 
recomendável que os dados 
enviados pelo sistema central 
aos terminais de vídeo e mi¬ 
crocomputadores possam ser 
enviados também para a im¬ 
pressora, que os imprimirá 
para leia mente ao preenchi¬ 
mento da tela desses termi¬ 
nais, executando o controle 
dc fluxo dos dados recebi¬ 
dos* Opcional mente, os da¬ 
dos enviados pelo sistema 
central nas telas dos termi¬ 
nais poderão ser armazena¬ 
dos para leiam ente em me¬ 
mória secundária (disco ou 
cassete), para posterior im¬ 
pressão* 


Vocé já decorou todos os 
números de código das men¬ 
sagens de erro do DOS 500? 
Recorre ao manual a cada 
vez que, inesperadamenie, 
uma delas surge no visor do 
seu CP 500? iá precisou for¬ 
matar um disquete para li* 
vrar-se de um programa pro¬ 
tegido por senha, que você 
esqueceu ou não conhecia, 
visando ganhar aquele espa- 
cinho que faltava nesse dis¬ 
quete para o seu programa? 

A.s dicas deste número 
pouparão seu tempo nos 
dois casos que citamos, O 
primeiro PATCH é para 


mensagens de erro completas 
e diretas. O segundo, para 
apagar qualquer arquivo. 
Sempre em DOS 500 Ativo, 
digite: 

PATCH *4(ADD = 4E28, 
FIND = 20,CHG = 18) 
PATCH *3(ADD = 4F6C, 
FIND = 38,CHG= 18) 

Para os programadores 
em Basic, uma dica sonora, 
bem simples, que usa uma 
sub-rotina em ROM, sem al¬ 
terar nenhum dos registrado¬ 
res, O som ouvido após o 
aparecimento dc cada aste¬ 
risco no vídeo é o resultante 


de cada bit emitido para gra¬ 
vação em fita* A numeração 
de linhas apropriada resul¬ 
tará numa sub-rotina bern 
aproveitável* Para os CP 300 
e CP 500, versão cassete, de¬ 
ve ser utilizada a linha 100*. 
10 CLS - P RINT @450; 

1 TESTE DE AUDIO” 

20 FO RI “ 1 TO 128 :GOS U B 
100:PRINT M * ,T ;:NEXT: 
END 

100 DEFUSR1 = &HÚ264: 
X — USR 1(0): RETURN 
KXPPOKE16526,100: 
POKEl6527,2:X = USR(O): 
RETURN 

Até o próximo número. 

PFGP 
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Macrof: um novo 
oplleatlvo no 
mercado 

Para gerenciar bancos de da¬ 
dos» editar gráficos e textos» 
com acentuação conforme as 
regras da língua portuguesa, 
Almir Joaquim de Souza» da 
Universidade de Goiás, desen¬ 
volveu o programa Macrof» es¬ 
crito em linguagem de máquina 
que atende aos usuários do CP 
300 e CP 500. Com capacidade 
para 73 campos de registros, ge¬ 
renciamento virtual de arqui¬ 
vos» procura e ordenação por 
qualquer campo, o Macrof tra¬ 
balha direto no disquete inteiro» 
possibilitando saber previamen¬ 
te quantos registros podem ca¬ 
ber no disco. O Macrof está 
sendo comercializado em Goiâ¬ 
nia pela Átila Informática, tel.: 
(061) 223-1300. 


Mais um revendedor 
Prológtca em 
Campinas 

Campicom» este é o novo re¬ 
vendedor da Prológica em Cam¬ 
pinas, que conta atualmente 
com 42 funcionários e duas fi¬ 
liais: em Ribeirão Preto e Poços 
de Caldas. Programas para a 
área rural e aplicativos para o 
setor público, como contabili¬ 
dade pública e controle de dívi¬ 
das ativas, são alguns dos pro¬ 
gramas desenvolvidos pelo de¬ 
partamento de software da Cam¬ 
picom. 


Cursos 

Mensalmente o Instituto Sul- 
livan promove Cursos Regulares 
de Linguagem Basic (normal e 
avançado), Cobol, Fortran e 
Assembler e Cursos Especiais 
Aplicativos: CPM, Visicalc, Vi- 
siplot, Visifile, Supervisicalc, 
Multiplan, DB/Master, Editor 
de Textos» Sistemas de Conta¬ 
bilidade para Micros, Sistemas 
Operacionais. Maiores informa¬ 
ções no próprio Instituto, pelo 
tel.: (021) 541-9333. 

Em outubro e novembro o 
NETC — Núcleo de Ensino de 
Tecnologia e Ciência — estará 
promovendo cursos de Eletrô¬ 
nica Digital, Computadores e 
Microcomputadores Digitais, 
Hardware de Sistemas Baseados 
no MP Z-80, Hardware de Tele¬ 
processamento, Software de Te¬ 
leprocessamento, Amplificado¬ 
res Operacionais I, Interfaces 
A/D e D/A, Sistemas.de Comu¬ 
nicação via Fibra Ótica. O tel. 
do NETC é (011) 220-1989. 


CP 500 no 
Planetário 

O Planetário Municipal de 
São Paulo recebeu recentemen¬ 
te da Prológica Microcomputa¬ 
dores um CP 500 e uma impres¬ 
sora P 500» que serão utilizados 
no estudo de astrofísica e ciên¬ 
cias correlatas. De acordo com 
o físico lrineu Varella, que diri¬ 
ge uma equipe de pesquisadores 
do planetário, o CP 500 tam¬ 
bém será usado para controle de 
arquivos, cálculos financeiros, 
cadastro de alunos e cursos. 
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educaçao 


Modelos: CP 300/CP 500 48 Kb RAM 


C om o microcomputador, multiplicar tornou-se uma gostosa 
e divertida brincadeira. Dando seqüência aos programas 
educacionais publicados na GP 8 e 9, neste número de 
nossa revista estamos publicando um aplicativo que 
propõe à criança responder a algumas operações de 
multiplicação. Se a resposta for correta, a face, que nós já 



**50 IÍ=G*+IJ. 

460 PRINTS71A, : :RRINTUSING“**,#»=* 
■■-.VfiUtl*) ! SPRINT" = SUfl KtSPDSTH 


10 ' + 

20 '* EDUCACIONAL III * 

30 '* PROLOGICA * 

40 '* CP-300/CP-500 * 

50 

60 f;LS:PRINT@6*64+20,STPING$( 20,13 
1 3; 

70 PRIMT£7*64+24, "MULTIPLICACAO 11 : 
80 PPIMT@S*64+24, 11 P/ I-GRAU”? 

90 PPINT@t9+64+ZQ,STRlNG$< 20,131)í 
100 SQSU9 S90 
110 CLS 
120 # 

130 CLS * GÜSUB 650 

1 4 o A'PND í 991 £ B=RND’C 9 J : C-RND < 9):D= 
<B*10>+C*IF R(D GOTO 140 
150 F*="4n tt sO$e"x*# H s Wü=CHRfi £ 191 ) 
160 PRINTI5333, MN ; sPRINTUSING Pv;r; 
170 PPlNTêSSè, " ,J í * PR INTUSINGQÍ ;Dl 

ISO PRINTS460, "- í( ; 

190 L-S2ÒÍ0DSUB 520 
200 PRINTR526 1 Hí : : L-523 : GOSÜB 520 
sJ*«LÍ 

21 0 HT>= Tí+Ht: PRINTSS25 1 HT; 

720 rr CÊHCXIOÜ GOTO 25G 
230 L=534sGGSUB 570 

240 HMJi+h* ;PRINT0524,H*S 
250 L-539:GOSU 8 520 =G$=LS 
260 PRIr4T^539 1 G$ ; 

270 L=53Q:G0SUB 520 = 

>*I 1 HGTiPfttNTÔ5SS*Gti 
290 Tr<Q*ei<100 GOTO 320 
300 L=587:GÓSUB520 :Ií=L4 
310 G*-!%+G ü: PP INT25S7,G$; 

320 PRINT4650»*-" : 

330 L=*713!0O8UB 520 : 

340 P-VRLÍGÍ)* 10 +VOLÍHÍ) 

35i* PRINT071G,I^; 

360 L-717 5 GOSUB 520 :G$=L$ 

370 I*=G*+I$ 

320 PR1NT£717,I$; 

390 IF PdOO GOTO 4S0 
400 L-716:GOSUB 520 :Gf=Lü 
410 IT=G*+t* 

420 PRINT£7ió,I*S 

430 IF PílOOO BOTO 460 

440 PRINT@715, , = L^7I4í6QSU9 520 


470 PRI NT&77B , 11 " £ :PRINTlJSTMG 11 *, tt 
M 5<R#D);SPRINT" = RESPOSTA CORRE 
TA" 

480 IF VAL<I*)“A*D GOSUB 610 :ELS 
E GOSUB 680 

490 P0RX=1 TO 2500£ NEXTX 
500 GOTO 120 
510 END 
520 ' 

530 PRINTdL WT £ 

540 FOR X=1 TO 5 £ L*=INKEY*:IF LTl, 

{>"" GOTO 600 

550 NEXT X 

560 PRXNTOL i " +1 ; 

570 F0RX=1 TD 15*L$=INKEY*!IF Lfí > 

""THEN GOTO 600 
5S0 NEXTX 
590 GOTO 530 
600 RETURN 
610 ' 

620 ' FACE FELIZ 

630 P=215 s F0RX = 1TG7 * PRINT8P*H$ í X >: 

£ PRINT@916 f "M.UITO BEEMMH ! ! H ! ! 

"5 :P=p+64£NEXT X 
640 RETURN 
650 ' FACE NATURAL 
660 P=215:FGRX = l TO 7 SPRINT ®P,N*í 
X> í£PPINT2916,‘OUAL E' O RESULTADO 
????";:P=P+64SNEXTX 
670 RETURN 
680 J FACE TPISTE 

690 P =215 tFOR X = X TO ?£PRINT@P,S 
1CX);:PRINT£9i6,"LÁHENTAVELL !!!! 

11 ; :P=P+64sNEXT X 
700 RETURN 

710 ' DATA PARA FACES 

720 BATA 32,32,32^176,140^1401131, 

131,131,131t 131i131,131i140, 

140,176,32,32i32,32,32,134,131,32, 
32,144,160,32,32 T 32,32,3 2,14 

4,160s 32i32,131,164,144,32,168,129 
,32,32,32,130,129,32 ,32,32,3 

2,32,130,129,32,32,32,32,169,32 
730 DATA 149,32,32,32,32,32,32,32, 

136,176,132,32,32,32,32,32,3 
2,32,32,149,133,1^4,32,32,131,164, 
144,32,32,32,32,32,160,1 52,1 

31,32,32,32,154,32,32,130,137,164, 
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176,176,130,131,131, 131,131, 

131.129.32.160.176.140.131.32.32 
740 DATA 32,32,32,32,32,131,131,13 
1,140,140,140,134,131,131,13 

1.32.32.32.32.32 

750 DATA 32,32,32,176,140,140,131, 

131.131.131.131.131.131.140, 

140.176.32.32.32.32 

760 DPTfi 32,184,131,32,32,160,144, 

32.32.32.32.32.160.144.32.32 
,131,164,144,32 

770 DATA 16S,129,32,32,32,32,32,32 
,32,32,32,32,32,32,32,32,32, 

32.169.32 

7S0 DATA 149,32,32,32,32,32,32,32, 

136.143.132.32.32.32.32.32.3 
2,32,32,149 

790 DA T A 139,144,32.32,32,32,32,17 
6,176', 176,176,176,152,32,32 , 

32.32.32.154.32 

300 DATA 32,130,137,164,176,32,130 
,32,32,32,32,32,32,32,160,17 

6.140.131.32.32 

810 BATA 32,32,32,32,32,131,131,13 
1,140,140,140,134,131,131,13 

1.32.32.32.32.32 

S20 DATA 32,32,32,176,140,140,131, 

131.131.131.131.131.131.140, 

140.176.32.32.32.32 

330 DATA 32,184,131.32,32,152,164, 

32.32.32.32.32.152.164.32.32 
,131,164,144,32 

840 DATA 168,129,32,32,32*32,32,32 
t32,32,32,32,32,32,32,32,32, 

32,169 s 32 

350 DATA 149,32,32,32,32 > 32,32,32, 

136.131.132.32.32.32.32.32.3 
2,32*32,1^9 

360 DATA 138,144,32,32,32,32,176,1 

52.140.140.140.140.164.176.3 

2.32.32.32.154.32 

S70 DATA 32,130,137,164,176,131*32 
,32,32 í 32 * 32,32,32,32 * 163,17 

6.140.131.32 * 32 

320 DATA 32,32,32,32,32,131*131,13 
1 ,140,140 * 140,134,131*131*13 

1.32 i ,32,32.32 

S90 OLEAR 1000!DI^ A(20 > ,HS(7>,Ní< 
73,5*Í7) 

900 FOR X 1 TO 7:F0RY= I TO 20 = P 
EPD RSHiM X X >+CH&*(A)sNEXTY:NF 

XTX 

910 POR X = i TO 7:FQRY - 1 TO 20: 
READ A: m £ X >=iN*( X)+CHRí í A) íNEXTY: 
NEXTX 

920 FOR M í 70 7: FflPY = 1 TO 20: 

"EAD RsS»CXí4S*a3+CHPf ÍRJ :«EXTY: 
NEXTX 

930 GOTO 120 









PRog Bama 


Modelo; CP 200 


DO 


l 6 Kb ram 


USUÁRIO 



E ste programo foi desenvolvido por Carlos Alberto da Silva Pinto (Agudos-SP) e permite o cadastra- 
mento de todas as obrigações que você tenha diariamente, no período de 40 dias, com opções 
de consulta, inclusão, complementação e gravação. 


2 '* PROGRAMA USUÁRIO * 

3 '* PPOLOGICR * 

4 '* CP-ZOO * 

5 »+♦»♦*+ + + H ****** 

7 LET T-Ô 
10 LET NO 
20 DIN A$í2) 

30 BIM B$Í2) 

40 DIM CfCZJ 
50 DIH DfíSO) 

60 OIM EM 50) 

70 Dl SI FM 50) 

30 DlM 0*50 > 

90 DIM Xf<3> 

100 DIM Hf i 401204 S 
110 CLS 

120 PPINT TREt 10= "AGENDA DTARIA 1 ' 

J 30 PPINT ,,,,,,, 

140 PRINT "Is INCLUSRQ" 

150 °RTNT M 2 = COMPLEMENTAR DRDQS" 
160 PRINT "3 = CONSULTA" 

17i;i PPINT M 4 9 5 A LO RR DADOS" 

ISO PRIN7 BT 19,O; "ESCHA UMA OPCR 
0” 

190 LF,t Z$=TNKEYf 

200 LET Op= CQDE Zf-2S 

210 IF DP(1 OR DP>4 THEN GOTO 190 

220 GOTO 500*QP 

5r>0 LET CT~Nt+1 

510 GQSUB 5000 

5Z0 IF CTsN+2 THEN LET N=NM 

530 PPINT RT 20i0í"DIGTE ENTER P/ 

MOO A INCLUSÃO" 

540 PPINT RT 21,6;"OU M PARA O MEN 
U" 

550 LET ZT=INKEYf 

560 IF ZS~CHRf HS THEN GOTO 510 

570 IF 2$="M" THEN GOTO 110 

530 GOTO 550 

1000 CL5 

1005 LE T=1 

1010 GQSUB 1500 

1015 LET Df»HfíI,7 TO 56) 

1020 LET E$=Hf(1*57 TO 106) 

1025 LET Ff =HM 1,107 TD 156) 

1030 LET GS=HM1,157 TO) 

1090 GOSUB 5130 
1100 LET T«O 

1110 PRINT RT 20,05"DIGITE ENTER P 
/ NOVR INCLUSÃO" 

1112 PRINT RT 21,6:"OU H PARA O ME 
NU" 

1115 LET Zf=INKEYf 

1120 IF Zf=CHRf 113 THEN GOTO 1000 
3 125 IF Zf="M M THEN GOTO 110 
1130 GOTO 1115 

1200 LET HMI>=Rf+Bf+Cf+Df+Ef+Ff-*-G 
* 

1210 RETURM 


4.500 CLS 

1510 PRINT RT 10,0*"QUAL 0 DIA 7" 
1520 IN P LIT A$ 

1530 PFtMT RT10 , 0« " QURL D MES ?" 
1540 IMPUT B* 

1565 C'_5 

1550 PRINT R*;“/ |t ?&*S"/34 M 
1560 FOR 1=1 TO N 

1570 IF Hf í I,TO 2)=Rf RND HM I , 3 T 
□ t*)=m THEN GOTO 1610 
1530 NEXT I 

IS^A pp imt "REGISTRO INEXISTENTE" 
1595 IF T=1 T-EN GOTO 1100 
lòOO GOTO 1690 
1610 CLS 

1670 p RINT TRB J0i'•PEGISTPD N "ti 
1630 PPINT RT 2,1*0; " DIB / /" 

1640 PRINT RT 2,14«HS(1, TO 2);RT 
2il7iH$ÍI, 3 TG 4)í RT 2,20;Hf(I, 5 
TO 6) 

165Ti PRINT RT 4,0:"1 = 'THídt 7 T 
0 56) 

1660 PPINT RT 8,0;"2 = 57 

TO 106) 

1670 PPINT RT 12,OS "3 = 11 ; HM 1,107 
TO 156> 

1630 PPINT qr i6 T 0r'4 = " ?MMI, 15 
7 TQ) 

1635 IF T=1 THEN RETURN 
1690 PRINT RT 20,0;"DIGITE EHTE P/ 
NOVA CONSULTA" 

1700 PRINT RT 2l,6;"QU M PARA □ ME 
NU" 

1710 LET Zf=INKEYf 

1720 IF Z$=CHRf 113 THEN GOTO 1500 
1730 IF Zf“"M" THEN GOTO 110 
1740 GOTO 1710 
2000 CLS 

2010 PRINT RT 10,0|"PARA GRAVAR Dl 
GITE ENTER" 

2015 PRINT "PRRR O MENU DTGTTE M" 
2020 INPÜT Z% 

2025 IF Zf="M M THEN GCFQ 110 
2040 GOTO 9980 
5000 CLS 

5005 LET Df=">" 

5006 LET Ef=">” 

5007 LET Ff=">" 

3008 LET Gf i= " > 11 


5010 PPINT 
: " :CT 

TRB 4|"REGISTRO 

NUMERO 

5020 

PRTNT 

TRB 4! "DIA / 

/ 

5030 

PRINT 

RT 20,0!"DIGITE 

DIR" 

5040 

INPÜT 

Rf 


5050 

PRINT 

RT Í,S?Pf 


5060 

PRINT 

AT 20,0; H DIGITE 

ME 5" 

5070 

INPÜT 

Bf 


5080 

PRINT 

AT 1,11;B* 


5085 

GÜ3UB 

6000 


5090 

PRINT 

AT 20,05"DIGITE 

ANO" 
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5100 TNPUT Cf 
51ÍO PRINT RT 1,14;Cf 
5120 PPINT RT 4,0;" 1 = " S RT 3,0; "2 
= ";RT 12» O *"3 s ";RT 16,0;"4 ^ " 
5130 PRIMT RT 20,0;"RL T EPRP OU I rC 
. MENSRGEN? fR/I>" 

5140 1NPUT Lf 

5150 IF Lf="A" THEN LET LS*"ALTERA 

R" 

5160 TF Lf a "I" THEN LET LT="INCLUI 

5170 PRIN T RT 20,O;" QUAL N DR ME 
N3AGEM, ft ":i_f 

5130 ENPUT l 

5171 IF LU OR L>4 THEN GOTO 5170 
5185 PPINT RT 20,0: "DIGITE A Í1ENSA 
GEM 

5190 IF L = 1 THEN INPÜT D*» 

5200 IF L=1 THEN PRINI AT 4,4:DT 
5010 IF 1=2 THEN INPÜT E* 

"220 IF L^2 THEN P RINI RT 8,4; El 
5230 IF =3 T HEN 1NPU T F* 

5240 IF L-3 THEN PRINT AT 12,4;F* 
5250 I r 1-^4 THEN INPÜT G* 

5260 TF L-4 THEN PRINT RT 16,4*G1 
5765 TF Líl OR Lí 4 THEN GOTO 5130 
5270 PRINT RT 20,0;"OUTRA MENSAGEM 

5280 INFUT m* 

5290 IF m- n H" THEN GOTO 5315 

5300 IF Hf ( } "S"THEN GOTO 5280 

5310 GOTO 5130 

5315 IF T=1 THEN GOTO 1200 

5320 PRINT fi T 20,0!"DADOS CORRETOS 

5330 tNPi.JT 2* 

5340 TF Zf="N" THEn GOTO 5000 
5330 IF Z'>"S" THEN GOTO 5330 
5360 LET Hf fCTí=Rf+&f^L:f+Dl+Ef+Ff+ 

5370 l ÉT C T =CT +1 
5380 RETURN 

6000 IF N=0 THEN RETURN 
6005 FOR 1=1 TO N 

6010 TF HfíIjTO 2> =Af RND Hf (1,3 T 

□ 4^Pf THEN GOTO 6030 

6015 ME*T I 

602u RETURN 

6030 CLS 

6040 PRINT RT 12,3; . ESTE DIR JR 

FETR rqOPSTRRDO'. 

6045 PRINT RT 13,4;“DEVE SER USRDO 
A 0RCRC1 2" 

6046 PR IMT RT 14,4; ,J D0 MENU" 

6047 p RINT AT* 19,0:"(TECLE ENTER>" 
6050 LE T Zf=INKEYf 

6055 IF Zf^CHRf 118 IHEM GOTO HO 

6• > 6 Í " GOTO 6050 

9980 SLCW 

99S5 SAVE 11 AGENDA" 

9999 GOTO 110 







Modelos: CP 300/CP 500 48 Kb RAM 


CASSINO 


Você não precisa ir o Mônaco ou ao 
Uruguai para tentar a sorte. Convide 
seus amigos e aposte na roda da 
fortuna com seu micro. O jogo que 
publicamos neste espaço permite a 
participação de até oito apostadores e 
apresenta todos os comandos no vídeo. 
Siga as instruções corretamente e boa sorte! 


10 ' **-**-#***-*#-!■■##Mi#*##*##*#-*-* 

+++ 

20 '■* CRS5IND * 

30 '* PROLOGICfl * 

40 ** CP-300/CPS00 * 

50 ' ***♦##** #«-***#*#-** é 

6U DIM INf>,U*,WL*WL7.,U5,WD,FL:GaTQ 
240 

70 IN*=" 11 : W*=INLEY*: WD=0: B=0 = W5=WD 
: WL7.«HD: IFFL =WDT HENFL = 1 
80 PR IMTSTFI m* ( ABS í FL ) , CHRT (1361) 
;STRINE*(RBS<FU ,CHR*í24> ) ; 

90 PRINTCHRT( 14) ; :FÜRWX=1TG25: 

Ni- EY*: IFtW ) ""THENlOÜ ELSENEXTíPR 
INTCHRT( 15) ;:FÜRWX=IT025:W$=im:EY* 
:IFW*<>""THENL0O ELSEWEXT‘SQT090 

100 IFW*OCHR*li3>THENl20 ELSEPRt 
NTSTPING$ CRBS(FL>-WL7, 1 M 1 ) ; 

110 RRlNTCHRf(15 >í:WX=25=NEXT:RETU 
RN 

120 PRINTCHRí (14 >! s IFM?-=CHP* (24 > TH 
ENPRINTBTRINS$<WL7*,CHR*(24>) s : GGTtl 
70 

130 IFWfcí>CHR*(B)THEN170 ELSEIFWL 
7.-0THEN90 ELSEPRI NTCHR* (24 ) : : IFF 
L>0THEN15O ELSEIFPEEKí 16413 >=44TH 
EN160 

I40 IFREEK(16413)=46THENWD=Q:GOTO1 
50 ELSEIFPEEKÍ1641S1=430RPEEKt1Ó4 
IS)=45THENWG=0 

150 INT-LEFT* tIN$,LEN íINÍ)—1) 

160 WL7.=WL7"1; PGKE 16413,136 ÍGDT090 

170 IFRBB(FU=I4L7.THEN90 ELSEIFFL 
) OTHENIFWS > =" " mm* < =" Z M THEN220 
ISO IFkt="- M RNDUD=0rHENkD^lGOTO22O 

190 IFW$=" t "THENPRINTWS; : ULX=WL“/.+l 
s G0TQ23Q 

200 lF(Wí=* 1 - M DRI4í«» + ”)RNDWS=0nNDWL 

*4=QTHENW5= 1 - G0T022Ó 

210 IFH*< "0 ,, 0RWt) i, 9"THEN90 

220 PR INTUÍ ? : LN$=1NÍ+W*: WLX=UIL"2+1 

230 XFflBS(FL>=lTHFNl10 ELSE90 

240 CLERR2O00=DEFINTR-EsG0SUB620 

! TSí="C R S S I NO 1 ' 

250 DIMRTÍ73) , ÊT(9) , MMf. (S) ,0(73) ,P 
Rí 15), T X í (20),WIN(3) 

260 CLS:FORR=1T073!REPDRS ( 


R)!NEXrsRESTQRE:rOPR= LT073:RERDR(A 
) : NEXT : F0RR=1 T(.lJ 5 s PERDPft ( R ) : NEXT : F 
ORO-1T03;WIN(O)-20: NEXT:RANDOM:MS= 

1 . - :’-i ^íPRINTCHR^<23) s 

RR1NT»401t TSl; 

270 ?T— ETPINGT (2,143):PPINT@524,"0 

À U A R D ... . . 

TNT * FaPP=lT073:0íAi:p$.'P)- 
P 3 GHT*. ( Oí T 2' = NEXT 

230 FtP*J=lT09:PERDRDíC*<i>=CÍ t 1)+C 
HR* (RO) s NE X T s F )( . 19 : Cí (N> =RIGHT. 
f f Gfi Uv-n, 1) :Q-10 : FORN* 1T010 : F'ERDR 
I): DLD-OLf+C*fRTi (PD ) t NEXT: 

290 FüRn— 9T0i4: FORNI -1TD10=RERDRD: 
TX*tN)*TX*ÍN> ^GHR» ( RD UNEXT * TX* : CN > 

-T X * (N)+DL$;NE X1tFORN*1 TO11:RERDRD 
;Tvt-( Ist^Tyf.(15) +CH 0 * < RD ): NEXT 
36(, FQPr ■:=. 1105: F' )PN I -1 TOS: PER D RD = T X 
t (N) =TX*< tn+CHPT ( R[>): NEXTN1, N 
310 DPTR 1,2,40,1,5,1,2,IjlOil,2,1 
15111 Zf 1 ^5f X 13, J * 7X 4 1 12t 10? 1^2t 1,5 
,l,2,1i5,1,2,13,1,:,1,l011,2,1,2,1 
, 2 r u ,1,2,5.1,3,1 1 *, 1 ,2,5,1,2,40,1,5, 
1Í2,1,10,1,2,li5ili2,1,5,1,2,516,5 
SD,644t 703,54g,613,674,740,46,106 T 
130,170,194,234,153,43,49,32,43,50 
, 32 i 43 ,53,32 

370 PRTR 32 * 67,22,35,90,69,73,32,7 

9.33- 33,50,32 * 3' > *45,71,65,32,32,50 
■j i c i,i i .21 ívu i ii j i / 1 ■. ^í 1 ”' i .>2, j2 , d ^, 49 , 
48,32,80,65,71 * 65 ^ 33,49,43,50,43,3 

',BO,65*71.65,32,50,48,49,51,32,80 
,45 - 7!,65 - 32 - 52,4S,52,43,32,30,65, 
71 ■45,32,52,43,49,32,£ 0,65,71,65,3 
3,37,34,32,49 

3:DRTP 32,71,65,70,72,79,35,32,3 
2,80i69,82,68,69,85,37,32,68,69,36 
i69,37,32,32,32,65,47,65,66,79,S5, 

33.33.33- 79,46.02.65,32,32 

340 R0=F PE < RR1-) : CL 3: RPI NTSTRINBf í 5 
^,1911:STRING^(10,170) 

35o FL=-l:PPlNTei92,"QURL O NP. DE 
JOGRDCJRES í 1-R) : ■ < ::G0GÜB70 :N 

•^-VRL ( F N1 >: 1FNN < 1OPNM >STHEN6DTQ350 

360 F0PN=1TÜNM SPRINT SPRINT 1 'NOME DO 
IGGRDOR **-==> " ;M; n ";sFL=12:GO* 
SÜB70 sNMfcíN)=IN*sNEXT:CLG;TK=-N 
M 

370 PRlNTd20." RTENCRO iV ;:PR 
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INTeS4,STRlNGtí21 ,131) 

330 PRINTS320,"TODOS JOGRDORES REC 
EBERRM 21 FICHRS PRRR JOGRREM-"sPR 
INT:PRINT"í < < CR9SI NO ))> E 
ÜM ESTflBELEGINENTQ PEQUENO E H SUR 
BflNCP M ; s PR INT SPRINT 14 TEli RPENRS CP 
f100,00- TENTE QUEBRA-lP- RLGUMPS 
JQGRDRG RLTRS,";9Ri N T:PRINT"P0DEN 
CONSEGUIR ISTO-"; 

390 BnNK=10ü:AA=FREffm) :G0T0410 
400 IP=0 s RESUME390 

410 ONERRORGOTDO :PRINTG972," TE 
CLE (ENTER) PRRR CONTINURR" isFDRNl 
=1T050:NEXT: IP$=“ ":IPf=INKEYS:PRIN 
TG972 t 5TRING$<31,32);;F0RN=1TQ25:N 
EXT : IFIPS^' 1 "THEN410 ELSECLS : GOSUB 
570 

420 TK=TK+NH:PRINTS3,CHRS(143>;TKl 
CHF^Í143)?:PRINT@62-NS,CHR$<143);P 
D; CHR* í143);: IPS = "": PROFIT=TK-PD : I 
FPROFIT(-BANKTHEN610 ,ELSEPRINT^97 
E,"LUCRO DA CAGA HOJE CRV íPROFITT 
: FGRN=lT0Nt1 

430 PRINKE334,STRINGÍ(60,32);:PPIN 
T^SSA^Zf;" 1 " ;NNf(N) Ç SPRINT» ESCOLH 
A UM NUMERO PRRR APOSTAR ";=FL=-2 
440 G0SUB70 IFIN^=" " THEN460 EL 
SEE(W)=VAL(INS):IFE ( N)=0THEN430 E 
LSETFEíN)(>1RNDE(N)C)2ANDEÍN) i )5PN 
DE< N)<)10ANDE(M)<)20ANDE C N)(>13RND 
E(N}< > 4QTHEN430 ELSEG08UB450 :NE 
XTSGQT2470 

450 PRlNTêPA (NI+Q, "VAI Nü NUM * ,h ; 
E(N>i:pRlNTeS34,5TRING*(63,32);:PR 
INT(5S32,STRING^Í63,32) 1 sRETURN 
460 IFE(N)=0THEN430 ELSEF0RN=1T0N 
(1: PRINTQPR í N ) +Q , 11 VRI NO NUM. " 5 E ( 
N >;s NEXT:PRINTÔS34,STPINGS(63,32); 
470 FDRT=1T015í FORN = 1T09:PRINT@314 
+0, 1 ' ";BííN); ,f '*? :NEXTN t T:T= 0:P=0: 
X—PHD(54):Y=X+13:Z=PNDí5):F0RM-1TD 
17+E:F0RN4=XTQY:PRINT3324+P,(N4) 

::p=P+3:NEXT:FQR5=1TGT s NEXT:T=T+15 
:X=X-1:Y=Y“i:IFX<1THENX=54:Y=72 
480 PsOiNEXTMspRINTeiSS,"GRNHQÜ > 

11 í AT < N4-Q) ; : G03UB51Õ s PRINT@906 , Z 
*!" TECLE (ENTER) PRRR 0 RESULTA 
DD « ; 

490 IP$=INKEYí: IP$* 0 *' 

500 IP*=INKEY*:PRINT®906,Z*;SPRINT 






CP 500 


NA COMUTAÇÃO 
DE EQUIPAMENTOS 
ELÉTRICOS 



Você pretende viajar e tem receio de deixar a sua casa 
vazia? E se você a entregasse aos cuidados do seu CP 500, 
que em horas determinadas acendesse e apagasse as lu¬ 
zes,, a TV, o FM? Isto já é possível se você acoplar ao 
seu micro o circuito elétrico que descrevemos nesta pági¬ 
na, Tanto o circuito como o artigo forom elaborados, es¬ 
pecialmente para Geração Prológica, por Alexandre 
Faragd, arquiteto, que atualmente trabalha na Eltec Cons¬ 
truções Elétricas. 


3943, Z$; ' FORNt^lTDlOO s NEXT: PRINT€9 
06, " " ; : PRINTÔ943, 11 M t : FORNI “iTO 

50: NEXT : IFIPT “ ,H " THENSOO : ELSEPRIN 
T@906,STR I t 36,32 ) ;sGOSUBòOO :P 
RINT@155,TX*Í15í;:GOSUE550 :GOT04 
20 

510 FOPT=1TON11: IFACN4-0) ( > 13THENXF 
A (N4-Q)-E(T J THENPF:I MT&PP í T) + Q , ■■ " ; 
íPRINTUSINSM*;q(N4-Q );"PRINTTX* í1> 
; iWlNÍ T 3 =WlN ( T )+A<N4“Q)+1 íPD*FD+R f 
N4~Q) **TK^TK-I: S0T0540 
520 IFA(N4*0>-13THENIFRÍN4-Q>~E£ T) 
THENPRIN TÔPA < T)+Q," NT U5INGÜ1 

%xm H4-QI + 27;: PRINTTX* U > ; s UIN l T ) = 
WlN(T>+fl(N4-Q) + 23;pQ+4n:Tl =T*'-I:GO 
TG540 

530 PRINTftPAí T >+Q,";:PR XMTUSIWGH 

f í i;:PRlNTTXf( 2 í; 

540 nSí-STRlt < PD ) +" ‘ " :r13*LENÍ 

*WIN tT)-WINtT > —1:NEXT:RETURN 
550 rOPT-lTQNMspRiNTêPRÍT H-Q» M ":: 
PPTNTUSlNGm. ;WINÍTi;:IFSGN(WIN<Tj > 
=-iTHENFP!lNT0PfiíT>+(J+ í ?,TX»(3> í :GGT 
0560 = ELSÉ:IFS6NCWIN(T)> - + íTHENPR 

INT»pq£ T > +0^9 yj%* (S)$:G0T0560 :EL 

SE:IFSGNtWlNCTJó =0TH£NPRINT$RR£ T i + 
Q+ 9,TX$<4>: 

560 NEXTsRETURN 

570 PRINTG24Q+Q,STRUMGS £ 60, 1 40 3 =RR 
IHTG376+Q|STRINGfí60,131 ) !PRINTÊ24 
S+Q^HR-MISS) : :PRINT®307+Q,CHP*( 13 
Fj::PRINTe28ò,CHR$(143);CHP*Íívi>; 
CNP* <151);CHP*í143):sFRINT^^j a,cHP 
M143>iCHRf£ 140);CHF t í140);CHP$í14 
3 > $ 

530 PRINTS322 í CHRíM 191) : sPRrNTftSSl 
iCHRií191) ?:PRlNTt44B 1 STRINGl<64,1 
40) ; : PRINT(|763 iSTRINGí t64 * 140) ; :PR 
INIâ 12,STRIMGt ( 5 i i40>: 11 CP ";CHR*t 
140);" 500 ";CHRSC140> i" "ITS*;" 

";STPlNeí<6,140)i 

590 PRIN T «90,STRING*<i3,l40) : :RRIN 
T239,CHR*tIBS) ; : PF;INTI21Ü3 , CNF* £ 1SS 
) ::PRINT®153,CHR*<191):sPRINT£167, 
CHPt<191);ípRlNTeCiyíSTPTNOtU 15,13 
1) ; : FORNN=lTnNM: PRIN" r @PR í MN ) - 3 , NMT 
(NN);:NEXT s FQRNM-9TD15* PRINT3PP £ NN 
> ,TX*<NN)?:NEXT 

600 IFPCINT í 123, 16) =QQRP0I*)T í 10,37 
)=0THENGQTQ57O :EL5ERETURN 
610 FDRN-lT025:Pr:INT'lS96 1 STFlNGtf6 
3,32);:FPRT=1T020:NEXT:PRINT@S96 t " 
VOCE QUEBROU R BRNCR DO CASSINO 1 

1 TECLE < ENTER) ! í 1 ";:F0RT=1TOSO = X 
t-INKEY$: IFX'fc < > » H THENRUNF.LSEMEXTT , 
NsINPUTXStRUN 

620 CLS - PR 1NT H PQDR DPI FORTUNR M ; 
CH-íUAO);*' PROLÕGICn CP -500 ";PRI 
NTBTRINGí£54,191)SSTRIMG* i 10,170): 

: PRINT "0 SEU CQfi^UTRDOR PESSORL 1 ^ 
R tNT@516, "PRF:R INSTRUÇÕES TECLE <1 
) PR RA COMECRR TECLE { ENTER)":PRIN 
T0S96,BTPING$£64,133); 

630 P-0:FORN-1TD61:PRTNT0G9G+P,CHP 
T ( 17?) i : PF‘ 1NT0S97+P , CHP % £ 1 33 ) : =P=P 
+ 1 :NEXTíPPTN7^56-3TRING^<3- 133) : : 
ÍPt-" ■*: IP*=lNKEY1t; "THEN630 

ELSEIFIP^’’* I "THEN640 ELSERETURN 
640 PRINT6256, ,r 1 - INTRODUZA OUPNTD 
S VRO TOGAR < 1-3 ) 

2 ■ INTRODUZA 0 NOME DE CRDR JOGADO 
R 

3* CADA JOGADOR DEVE ESCOLHER UM N 
ÚMERO" 

650 PRINT"4 - AROS A ULTIMA ENTRADA 
A RODA COMECA GIRAR"SPPINTSTRINES 
(63,140);PRINT" NOTA: O NUMERO 

VENCEDOR E ANUNCIADO AP05 A RODA 
PARAR, 

TECLE <<ENTER)> PARA VER O RESULTA 
DO, SE TODOS OS JOGADORES" 

660 PRINT"QUISEREM MANTER AS MESMA 
S APOSTAS TECLE i ENTER) OU ESCOLHA 
NOVOS NUMEROS- 

CCSE ALGUÉM MUDAR UM NUMERO, TODO 
S DEVEM APOSTAR NOVAMENTE *)> M :PRIN 
TS-977, "TECLE < ENTER) PARA COMECAR" 

;:GOTO630 


O CP 300 dispõe de uma saída para 
gravador cassete, constituída por um co¬ 
nector DIN de cinco pinos (vide manual 
de operação e linguagem Basic do CP 
5QO f pàg, 60). Dois desses cinco pinos, 
os pinos 1 e 3, estão conectados a um 
contato de relé interna mente ao CP 500, 
sendo utilizados por este para acionar 
ou desligar o motor do gravador casse¬ 
te, através do bit ! da porta 236. 

O circuito que desenvolvemos e de¬ 
talhamos na fig. 1 permite o aproveita¬ 
mento desses mesmos pinos (1 e 3) para 
o acionamento, através de um rclé in¬ 
termediário, de outros equipamentos 
elétricos comuns, tais como: lâmpadas, 
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sirenes, pequenos motores e eletrodo¬ 
mésticos em geral. 

Descrição cio Circuito 

O circuito de comutação deve ser ali¬ 
mentado por uma tomada comum de 
110 voltíL Esta tensão entra através da 
chave geral CH1 e do fusível Fl no pri¬ 
mário do transformador TI, que deve 
fornecer no secundário uma tensão en¬ 
tre 9 e 10 volts, 

A ponte de diodos Dl a P4 forma um 
retificador de onda completa que retift- 









ca a tensão secundária do transforma¬ 
dor e o capacitor Cl faz a filtragem da 
tensão retificada. Esta tensão, filtrada 
e retificada, passa então pelos pinos 1 
c 3 do conector cassete do CP 500, acio¬ 
nando ou não a bobina cie RL1l, que por 
sua vez liga ou desliga o equipamento 
elétrico conectado à saída AC do cir¬ 
cuito, 

O ramo formado pelo LED D5 e pe¬ 
lo registrador Rl funcionam como uma 
simples indicação piloto de tensão de 
circuito, O diodo D6 tem a função de 
proteger o circuito da sobretensão indu¬ 
zida pelo acionamento de RLE 


Software de Operação 

Uma vez que o circuito esteja devi¬ 
damente conectado, o controle do equi¬ 
pamento conectado à saída AC passa a 
ser feito pelo CP 500. Para ligar a saída 
AC digite diretamente, a partir do Ba¬ 
sic, ou inclua no programa o seguinte 
comando: 

OUT 236,2 

Para desligar a saída AC utilize o se¬ 
guinte comando: 

OUT 236,0 


Em Assembler, utilize as rotinas: 

LIGA LD A,2 
OUT (236),A 
DESLIGA LD A,0 
OUT (236),A 

Importante não esquecer que a po¬ 
tência máxima da carga conectada à saí¬ 
da AC depende da capacidade de cor¬ 
rente do relê utilizado. Para o relé aqui 
especificado, essa potência não deverá 
ser superior a 200 W. 




CHI — Chave SPST 
TI — Transformador 110/l0v, 500mÁ 
Dl, D2 t D3, D4 —- Díodos 1N4001 
Cl Capacitor 4700 pF 16v, cletrolítico 
DS — LED 

Rl — Resistor 330 Q X l/4w 
D6 — Diodo IN4148 


RL1 — Microrelé para circuito impres¬ 
so (bobina 12Vcc) 

F1 — Fusível Ü,5A 


Diagrama esquemático do circuito 
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NOVO CP 300 PROLÒGICA. 



0 pequeno 
grande micro, 


Compatível com 
programas em fita 
cassete ou em disco. 


Pode ser ligado ao setraparclho de TV, da 
mesma forma que no terminal de vídeo 
de uma grande empresa. 

Com o CP 300 você pode 
fazer conexões telefônicas 
para coleta de ttedos^^ 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
TRS-80 americano. E o que é melhor: 
você estará apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua (aíxa tem tantas possibilidades de 
expansão ou desempenho igual. 

CP 300 Prológica. 

Os outros não mmm pROLOGI' 
fazem o gue ele faz, mícrocomputac 

pelo preço que ■■■ 

ele cobra, i;.. > Av £ng ü Luís Carlos Berrin V 


Agora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois. 

Porque chegou o novo CP 300 Prológica. 

0 novo CP 300 tem prego de ^ 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 
kbytes de memória 
interna com 

possibilidade de Permite 
expansão de memó¬ 
ria externa para até 
quase 1 megabyte. 

E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrível. 

Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. ^lilSIEE 

O único na sua faixa que já 
nasce com 64 kbytes de memória 


Pode ser ligado 
a um televisor comum 
ou a um sofisticado 
terminal de vídeo. 


Pode ser 
acoplado a uma 
Impressora 


r- 1 ' ít - - - 

- ■ 1 1387 V lor ,i 322 5511 ■ GO 3:3 t - 224 7035 - Ví 

Cuiabá - 321-2307 * MS-Campo Grande ^ 393-1270 - ÜDuradQS - 421-1052 
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de fm * 212-9075 - U&ertlnáa - 235-1099 * PA-Belém - 226-0011 - PR-Cascavef - 23*1538 - Cufi- 
tifa - 224-5616 - 224-3422 - Foz do Iguaçu * 73-3734 - Londrina - 23-0065* PE-Recife - 221-0142 * Fí-Teresina 
222 -ül 66 *RJ-Campos -22-3714 - Rio de Janeiro -264-5797 - 253-3395 - 252-2050* RN-Natal - 222-3212 * RS-Caxias do 
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mm mwcmeBAammmcpm 



A Píológica está lançando 
um micro que vale por dois: o CP 500 
com face dupla. 

Operando com dois drives e apenas 
dois disketes, o CP 500pode armazenar 
até 700 Kbytes. , 

O segredo è a face dupla. Ela permite ao CP 500ler 
dos dois lados do diskele e dobrar sua capacidade 
de memória. 

O mais incrivel é que ele custa 30% a menos do que 
qualquer configuração semelhante. E você ainda 
economiza dinheiro com a compra de disketes. 


O CP 500 opera com até 16 dígitos, uma 
verdadeira mão na roda para quem quer soluções na área 
financeira. 

Com ele você tem acesso ao Videotexto, ao Projeto 
Cirandão e a inúmeros bancos de dados existentes no Pais. 
Outra vantagem: você não precisa abrir mão dos softwares 
que você jà possui. 

Dê um pulo alé o seu Revendedor Prológica e fique 
face a face com a dupla face do CP 500. Vale a pena. 
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